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The PL/I (F) Compiler translates PL/I source 
programs into object programs in System/360 
machine language. This publication describes the 
facilities provided by the compiler, and the 
conventions and restrictions which the user must 
observe. It explains how to compile, link-edit, 
and execute PL/I source programs in the environ- 
ment of System/360 Operating System. Features of 
PL/I which are not supported by the (F) Compiler 
are detailed in Appendix H of this publication. 
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PREFACE 



This publication describes the facili- 
ties provided by the PL/I (F) Compiler, 
which functions under IBM System/360 Oper- 
ating System. It covers those language 
restrictions and operating considerations 
that the user must take into account in 
using the (F) Compiler. 



Job C ontrol Language Charts , 
Form C28-6632 



OE§£a£2ELs_C3uide f Form C2 8-6540 

Su pervisor and D ata Management Servi- 
ces, Form C28-6646 
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The reader is assumed to have a working 
knowledge of PL/I; he should therefore be 
familiar with the material contained in the 
following publication: 

IBM Syst em/ 360 Operatin g System: PL/ I 

Reference Manual, Form C28-8201 



RECOMMENDED PUBLICATIONS 

The following publications are referred 
to in the text for information beyond the 
scope of this publication: 

IB^ System/360 Operatin g System : 

Linkage Editor, Form C 28-6 538 

Job Control Language, Form C28-6539 



§Y£tem_Generation, Form C28-6554 

Utilities, Form C28-6586 

Messages^ Comgletion_Codes_and_storage 

Dumpjs, Form C28-6631 

In addition to those mentioned above, 
the following publications contain informa- 
tion which may be helpful to the user. 

IBM System/360 O perating S ystem : 

Concepts and Facilitie s, Form C28-6535 

Principles of Operations,, Form 

A22-6821 

Storage Estimates , Form C28-6551 

PL/ I Subrgutine_Library, Compu tat ional 
Subroutines, Form C28-6590 
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INTRODUCTION 



PL/I (F) COMPILER 



Changes at __Second_Ver sign 



The PL/I (F) Compiler translates PL/I 
source programs into object programs in 
System/360 machine language. It is 
designed to provide fast compilation and 
comprehensive diagnostic facilities. 



The source program is maintained in 
storage throughout the compilation process, 
as far as possible, and successive phases 
of the compiler are passed against it. 
This means that the use of input/output 
data sets is kept to a minimum, with a 
consequent improvement in performance. 

The compiler is of modular construction. 
For the compilation of a given source 
program, it uses only those modules that 
are actually required, and these are 
selected automatically. 

A comprehensive set of compiler options 
is available to the user. The default 
values for these options are set at system 
generation time, and the options required 
for a particular compilation are selected 
at compilation time. 

Wide use is made of modular library 
routines, using selective loading tech- 
niques to minimize the storage space 
required by object programs. 



The most significant changes for the 
second version of the compiler were: 

RECORD I/O: The statements: READ, 
WRITE, REWRITE, and DELETE 

The attributes: RECORD, UPDATE, 
SEQUENTIAL, DIRECT, BACKWARDS, 
BUFFERED, UNBUFFERED, and KEYED 

The ON-conditions: RECORD and 
KEY 

The built-in functions: ONFILE 
and ONKEY 

Note: The usage UPDATE SEQUEN- 
TIAL was not supported except 
for INDEXED data set organiza- 
tion. 



COMPILE-TIME PROCESSING: The compile- 

time processing feature of PL/I 

COMPILER OPTIONS: Abbreviated names as 
alternatives to the full names 
for compiler options 

ARRAY INITIALIZATION: Initialization of 
arrays of STATIC variables by 
means of the INITIAL attribute 



DIFFERENT VERSIONS OF THE COMPILER 



STREAM I/O: The options PAGESIZE and 
LINESIZE 

The ON-condition NAME 



This edition Form C28-6594-4 of the PL/I 
(F) Programmer's Guide documents the fourth 
version of the compiler with the improve- 
ments incorporated for Release 17 of the 
operating system. 

Earlier versions are: 



LIST/DATA-DIRECTED OUTPUT: Alignment of 
data on preset tab positions 

RECORD FORMAT: The use of undefined- 
format source records 



1st version Form: C28-6594-0 

2nd version Form: C28-6594-1 

3rd version Form: C28-6594-2 

4th version Form: C28-6594-3 

The more important differences between 
these versions of the compiler are listed 
below. There then follows a statement 
concerning the compatibility between com- 
piled code and Library modules of various 
versions. 



PAPER TAPE: Paper tape as input to the 
compiler and object program 

OPERATORS: The operators -, > and !,<, and 
their 48-character set 
equivalents NG and NL 

QUALIFIED NAMES: The resolution of 

apparently ambiguous name qual- 
ification 
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OBJECT PROGRAM LISTING: Double-column 
format for the object program 
listing 



OBJECT-TIME ERROR HANDLING: Optional 
inclusion of the statement 
number in object-time diag- 
nostic messages 



Combination of SNAP output with 
SYSTEM action for ON statements 



RECURSION ENVIRONMENTS: A change in the 
interpretation of ENTRY param- 
eters and ON units in recursive 
contexts 



LINKAGE EDITING: A changed method of 
link-editing library routines 
into an object program, facili- 
tating both the link-editing of 
PL/I object modules from a 
library and the use of overlay 
technique with PL/I object 
modules. 



MIXED DEFINING: The severity of diag- 
nostic messages for defined 
data of type different from the 
type of the base is reduced 
from terminal to error, permit- 
ting the compilation of pro- 
grams using mixed defining. 



CATALOGED PROCEDURES: A new cataloged 

procedure (PL1LFLG) for linkage 
editing and execution 



Changes at Third Version 



The most significant changes for the 
third version of the compiler are: 

OBJECT PERFORMANCE: Changes in the 

object code generated by the 
compiler will result in consid- 
erable improvements in the 
object-time performance. The 
most significant improvements 
are in the following areas: 
data conversions, the SUBSTR 
function and pseudo-variable, 
the INDEX function, the UNSPEC 
function, object-time error 
handling and procedural house- 
keeping, and the usage GO TO 
label- variable. 

ARRAY INITIALIZATION: Initialization of 
arrays of AUTOMATIC or CON- 
TROLLED variables by means of 
the INITIAL attribute. 

UPDATE SEQUENTIAL: The usage UPDATE 

SEQUENTIAL for CONSECUTIVE and 
REGIONAL data set organiza- 
tions. 

ASYNCHRONOUS OPERATION: The EVENT 

option on I/O statements, the 
COMPLETION built-in function 
and pseudo-variable, and the 
WAIT statement. 



Changes at Fourth Version 



The most significent changes for the 
fourth version of the compiler are: 

LOCATE I/O AND LIST PROCESSING: The 

following language is now sup- 
ported: 

Statements and options: 

READ FILE (filename) SET (pointer 
variable) [KEY (expression) | 
KEYTO( character-string 
variable) ] ; 

LOCATE based variable 

FILE(f ilename) [SET(pointer 
variable)] [KEYFROM( expres- 
sion) ] ; 

REWRITE FILE(filename) ; 

ALLOCATE based variable 
[IN(area variable)] 
[SET(pointer variable)]; 

FREE based variable [IN(area 
variable) ] ; 

Assignment: 

AREA to AREA 
POINTER/OFFSET to 
POINTER/OFFSET 

Attributes: 

AREAf (expression) ] 

BASED (pointer) 

OFFSET (based variable) 

POINTER 

REFER ( identifier) 

Built-in functions: 



BATCHED COMPILATION: The facility for 

batched compilation of programs 
and a new compiler option, 

OBJNM. 



ADDR 
EMPTY 
NULL 
NULLO 
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Condition: 

AREA 

Operation: 

-> in 60-character set 
PT in 48-character set 

ASYNCHRONOUS OPERATIONS AND MULTITASK- I 
ING : The following language is 
now supported: 

Statements and options: 

CALL statement with TASK, EVENT 

and PRIORITY options in any ■ 

combination, . 
WAIT statement extended to 

allow array names in the 

event list 
DISPLAY statement with REPLY 

and EVENT options 
UNLOCK statement 
NOLOCK option in READ statement 

Assignment: 

EVENT to EVENT 

Attributes: 

EVENT 

EXCLUSIVE 

TASK 

Built-in functions/pseudo- 
variables: 

COMPLETION 

PRIORITY 

STATUS 

Multitasking is supported by the 
MVT system 

Multiprocessing 

DATA INTERCHANGE: The COBOL option in 
the ENVIRONMENT attribute; the 
ALIGNED/UNALIGNED attributes 
(for FORTRAN data interchange) 

ASSEMBLER SUBROUTINES: A variable- 
length argument list can be 
passed to assembler subroutines 
invoked by a PL/I program 

STRING HANDLING: The STRINGRANGE condi- 
tion for use with SUBSTR; the 
STRING function 



INTO or FROM options; the KEY 
option in the DELETE statement 
is now optional. The DELETE 
statement is now supported for 
INDEXED data sets using SEQUEN- 
TIAL access. Four new ENVIRON- 
MENT options (INDEXAREA, NO- 
WRITE, REWIND, and GENKEY) 
provide improved performance 

COMPILER OPTIONS: SIZE and SORMGIN have 
been changed, and four new 
options (OPLIST, EXTDIC, MACDCK 
and NEST) have been added 

COMPILE-TIME OPTIMIZATION: Macro- 

processor concatenations are 
improved 

OBJECT PROGRAM OPTIMIZATION: Constant 
subscript and constant 
expression evaluation; some 
instances of VARYING strings in 
assignment; in-line code for 
some VARYING string operations; 
prologue optimization; in-line 
handling of certain data con- 
versions and some bit-string 
assignments; rounding-off 
(instead of truncation) for E- 
and F-format output; dope vec- 
tor initialization improved; 
optimization of some IF state- 
ments. 

LISTING IMPROVEMENTS: More details in 
attribute listings; aggregate 
listing is in alphabetical 
order; sizes of the STATIC and 
program control sections are 
given; the size of each DSA is 
given; statement number provid- 
ed in diagnostic message for 
invalid pictures; improvements 
of aggregate length table for 
BASED items. 

PROGRAM RESTART: The operating system 
checkpoint/restart facility is 
available under PCP 

EVALUATION OF EXPRESSIONS: The order of 
priority is changed; concatena- 
tion now comes before the com- 
parison and logical operators 
in the sequence of priority 

PL/I SORT: The operating system sort 
program is available for use 
with PL/I programs 



STREAM I/O: LINESIZE, SKIP and COLUMN 
in non-PRINT files; PUT DATA 
with no data list 

RECORD I/O: Some types of VARYING 

string may be used with the 



Changes at Fourth Version,, Release 17 



The most significant changes for the 
fourth version at Release 17 are: 
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RECORD I/O: Spanned records (VS- or 

VBS-format) can be specified to 
span blocks 

Generic keys (GENKEY option) 
can be specified to access 
groups of records on an INDEXED 
data set 

PL/I SORT: User control of SORT ddnames 
for multiple use of PL/I SORT 
within a single job step is 
provided 

MULTIPROCESSING: More than one PL/I 

task may be executed simulta- 
neously by a multiprocessing 
system 

PROGRAM RESTART: Improved checkpoint/ 
restart facilities are 
supported by PCP and MVT sys- 
tems 

CATALOGED PROCEDURES: Changes to some 
condition codes and to the 
dsnames for temporary data sets 
have been incorporated into the 
PL/I cataloged procedures 



Programming Techniques .and Op timization o f 
Source Code 



In string to arithmetic conversion, 
the precision obtained is now the 
maximum precision, not the default 
precision. 



E- and F- format items are now 
on output, not truncated. 



rounded 



4. Multitasking is supported in this ver- 
sion of the compiler. Therefore a 
fourth-version program with the TASK 
option will only execute successfully 
with programs based on earlier ver- 
sions if these programs have been 
recompiled with the TASK option. Even 
then, subprograms of these earlier 
programs may need rearranging to exe- 
cute succesfully. 

A program containing a CALL statement 
with the EVENT option should be com- 
piled with the TASK option in the main 
procedure. If the TASK option is not 
specified, it is assumed by default. 

Note : There is an incompatibility 
between multitasking in Release 15 and 
multitasking in Release 16, caused by 
the removal of multitasking code from 
some PL/I library modules. Multi- 
tasking programs coded using a Release 
15 version of the compiler must be 
recompiled and re-link edited if they 
are to be executed with a Release 16 
version. 



Details on avoiding common pitfalls and 
coding for improved efficiency are given in 
the section entitled Program ming Tech - 
niques. 



Comp atibility between Different Versions of 
the PL/I Library and Compiled Code 



Certain changes and improvements have 
been made to PL/I, the compiler, and the 
library between the four, versions of the 
compiler. As a result, certain incompati- 
bilities have unavoidably arisen between 
library modules of the different versions. 
The purpose of this compatibility statement 
is to make clear to the user what incompa- 
tibilities exist, and how the problems 
raised by them can be overcome. 

Several changes in the fourth version 
prevent this version from being completely 
compatible with earlier versions: 

1. In the evaluation of expressions, the 
priority of concatenation has been 
increased so that it now takes prec- 
edence over the comparison and logical 
operations. 



If a procedure is to be used recur- 
sively or in a reentrant manner, the 
attributes RECURSIVE (for any 
procedure) or REENTRANT (for the main 
procedure) must be specified in the 
PROCEDURE statement. In earlier ver- 
sions if these attributes were omit- 
ted, a procedure would function cor- 
rectly if used recursively or in a 
reentrant manner. 

The removal of PACKED from the lan- 
guage, and the introduction of UNAL- 
IGNED as the complementary attribute 
to ALIGNED, has brought differences 
between the current and earlier ver- 
sions of the compiler in the mapping 
of some aggregates and in the applica- 
tion of default attributes. 

When a PL/I program containing a 
statement with the PACKED attribute is 
compiled by a PL/I (F) compiler that 
supports ALIGNED/UNALIGNED, then 
PACKED is recognised and ignored, and 
the current defaults for the data type 
are applied. The mapping is the same 
as that formerly obtained with PACKED. 

For example: 

DCL A (5) BIT (7) PACKED; 
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The default for string elements in 
aggregates is UNALIGNED, which pro- 
vides the same mapping as for PACKED. 



DCL 1 STR PACKED, 

2 A FLOAT (5), 
2 B BIT(3) ; 

The data-type defaults are applied; A 
is ALIGNED and B is UNALIGNED. The 
mapping is the same as that for 
PACKED. 

It must be remembered that PACKED and 
UNALIGNED are not similar in meaning. 
If UNALIGNED is substituted for PACKED 
in the explicit declaration of a major 
structure, then there may be signifi- 
cant differences in the two mappings. 
For example: 

DCL 1 STR PACKED, 

2 A CHAR(3), 

2 B FLOAT DECIMAL* 15), 

2 C BITC2) ; 

Here A would be aligned on a byte 
boundary, B on a doubleword, and C on 
a bit boundary. If UNALIGNED were 
substituted for PACKED, A and B would 
be byte-aligned, and C bit-aligned. 

The change in the default attributes 
has brought an incompatibility for bit 
string arrays. In the statement: 

DCL A(10) FL0AT(5), 
B(5) BIT(3); 

the former defaults for A and B would 
be ALIGNED; A would be an array of 
word-aligned arithmetic data, and B 
would be an array of byte-aligned bit 
strings. But the default for arrays 
is now according to data type; A is 
ALIGNED and hence still word-aligned 
and B is UNALIGNED and becomes bit- 
aligned. To make string arrays in 
programs with PACKED as default 
compatible (without recompiling) with 
those in programs with the data-type 
default, the latter must be explicitly 
declared ALIGNED. 

On the other hand, the default mapping 
for structures is the same as before. 
A structure declared as: 

DCL 1 STR, 

2 A FL0AT(5) , 

2 B CHARU), 

2 C(10) BIT(7) ; 

formerly had the default attribute 
PACKED; it now has default attributes 
that depend on the data type. The 
mapping is the same in both cases: A 



is word-aligned, B is 
and C is bit-aligned. 



byte-aligned, 



7. Exponentation by integers is now 
changed. Previously, both operands 
were converted to floating-point, and 
the result precision was the greater 
of the operand precisions. Now, if 
the second operand is a fixed-point 
variable with precision (p # 0), the 
first operand is converted to 
floating-point, and the precision of 
the result is the precision of the 
first operand. 

Two definite compatibility statements 
can be made about the compilers in general: 

1. Compiled code from any version of the 
compiler must always be executed using 
a library of the same version or a 
later version. 

2. Library modules of different versions 
can be mixed only in the following 
circumstances : 

a. All link-edited modules must be of 
the same version as each other, 
and 

b. All dynamically linked or loaded 
modules must be of the same ver- 
sion as each other and must be of 
at least as late a version as the 
link-edited modules. 

Unless a user has link-edited PL/I 
external procedures with modules from a 
PL/I library and placed them in a private 
library for future use with main programs 
compiled by a later version of the compil- 
er, these incompatibilities should cause no 
problems. Provided the user has installed 
the latest compiler and library components, 
all future link-editing operations will 
result in the incorporation of the correct 
library modules. If,, however, he has link- 
edited some of his external procedures, 
then, if he intends to use them in 
conjunction with a main program containing 
later-version library modules, he must 
remove the earlier-version library modules 
from them. 

Two methods may be employed to carry 
this out, one temporary and the other 
permanent: 

1. The linkage editor map for the exter- 
nal procedure is examined to see 
whether any library modules have been 
incorporated in the load module; these 
can be identified by the initial let- 
ters IHE. If there are no library 
modules present in the load module, no 
further action is required. If 
library modules are present, then 
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every time a main program needs to use 
the external procedure, it should be 
link-edited with it, using INCLUDE 
cards naming the library modules which 
are to be replaced (i.e., all of them) 
and an INCLUDE card naming the exter- 
nal procedure itself. (The latter 
must be a separate card and it must 
follow the INCLUDE card for the 
library modules.) This will result in 
the incorporation of the correct 
later-version library modules and then 
the external procedure itself. This 
method is temporary. 

The permanent method is to link- edit 
the external procedure using the 
replace facility on the NAME card. In 
other words, the linkage editor is 
executed using the INCLUDE cards nam- 
ing the library modules which are to 
be replaced, followed by an INCLUDE 
card naming the external procedure, 
followed by a NAME card naming the 
external procedure with the replace 
option. 



LANGUAGE LEVEL 



Lan2uag_e_Support 



The language features supported by the 
(F) Compiler are as defined in the publica- 
tion I EM System/3 6 Operatin g System, PL / 1 
£§f ^£i~Iice_Mariual. Certain minor restric- 
tions are necessary for the efficient oper- 
ation of the compiler. For full details of 
these restrictions refer to Appendix B of 
this publication. 



Language Features Not Support ed in the 
Fourth Version 



In addition to the restrictions speci- 
fied in Appendix B, certain areas of the 
language are not implemented in the fourth 
version of the compiler. For fuller 
details of features not supported by this 
version, refer to Appendix H of this publi- 
cation. 



Storage size 

Line count 

Source program listing 

Object program listing 

Compiler options listing 

External reference listing 

Attribute listing 

Cross reference listing 

Object program deck 

Object program load file 

Production of a NAME card for linkage 
editor processing 

Optimization 

Use of either BCD or EBCDIC 

Specification of source margins and of 
carriage control character for source 
program listing 

Use of either 48- or 60-character set 

Inclusion of source program statement 
numbers in diagnostic messages 

Level at which diagnostic messages are 
printed 

Compile-time processing 

Compile-time processor input listing 

Compilation to follow compile-time 
processing 

Extended dictionary 

Nesting count for source program list- 
ing 

Macro-processor card deck 

Model 91 option 

For details of these options, see the 
section called "Job Processing." 



Compiler Options 



A number of compiler options are availa- 
ble to the user. These can be specified at 
compilation time as parameters on the exe- 
cute statement (EXEC) card. They include 
the following: 



PROCESSING AND THE OPERATING SYSTEM 



The basic units of processing in the 
operating system are the job and job step. 
The programmer communicates with the PL/I 
(F) compiler via the PL/I language; he 
communicates with the operating system via 
the job control language. 
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Job 



On receiving a problem, a programmer 
analyzes that problem and constructs a 
precise procedure to solve it; in other 
words, he writes a program to solve the 
problem. The computer then carries out the 
work specified in the programmer's proce- 
dure. The amount of work specified by the 
programmer for the computer is called a 
job, and is defined by using the JOB 
control statement in the job control lan- 
guage. For example, executing a single 
program to solve an equation is a job to 
the computing system. 



JOB: Aircraft test flight 

JOB STEP 1: Refine raw data 

JOB STEP 2: Develop values 

JOB STEP 3: Generate reports and 
graphs 



Job Step 



If the problem is complex, the program- 
mer may break it down into a series of 
steps, each step corresponding to a pro- 
gram. For example, the programmer may 
receive a tape containing raw data from an 
aircraft test flight. His objective may be 
to transform the raw data into a series of 
charts and reports. He may define the 
tnree following steps: 

1. Ref ining[_Raw_Dat a : Because of inter- 
mittent errors in meters and data 
transmission facilities, errors may 
occur in the raw data. The first step 
is to compare the raw data to project- 
ed data and to eliminate errors. 

2* Developing Values : To use the refined 

data and a set of parameters as input 
to a set of equations to develop the 
values for the creation of charts and 
reports. 

3- Generating Report.s__.and Graphs : To use 

the values to develop points for the 

charts, and to print the charts and 
reports. 

The important aspect of a job is that it 
is defined by the programmer. In this 
example the job can cover all three steps. 
In operating system terminology, a stage of 
processing executed to perform part of a 
job is called a job step. The programmer 
defines the job step to the operating 
system by using an EXEC control statement 
of the job control language. 

By designating several related steps as 
one job, with each step designated as a job 
step, efficient use is made of the operat- 
ing system. In the aircraft test flight 
example, each step may be defined as a job 
step in a job encompassing all the required 
processing, as follows: 



Data Set 



In the example, job step 1 used three 
collections of data as input and 
output -- raw data, projected data, and 
refined data. Any job step can use collec- 
tions of data. In the System/360 operating 
system, a collection of data is called a 
data set. A data set is defined to the 
operating system by a DD (Data Definition) 
statement of the job control language. Tne 
word "file , " as defined for PL/I, may for 
the most part be equared with the term 
"data set," as defined for the operating 
system. 

A data set resides on one or more 
volumes. A volume is a standard unit of 
external storage that can be written on or 
read by an input/output device. (For exam- 
ple, a volume may be a reel of tape, a disk 
pack, or a card deck. ) The operating 
system provides the feature of device inde- 
pendence; that is, when writing his source 
code, the user need not concern himself 
with the physical device from or onto which 
he may be reading or writing. The same 
data set may at different times reside on 
different volumes (and hence different 
types of device) . 

The names of data sets and any informa- 
tion identifying the volumes on which they 
reside may be placed in a catalog to help 
the operating system find the data set. 
This catalog resides on the direct-access 
volume that contains the operating system. 
Any data set whose name and volume iden- 
tification are placed in the catalog is 
called a cataloged data set. Other infor- 
mation concerning the data set, such as 
device specification, the position of the 
data set in the volume or the format of 
records in the data set, can also be 
accessed by the operating system- If the 
data set is cataloged when it is first 
created, the only information needed to 
retrieve the data set is its name. 

Note : Data set names that begin with the 
letters SYS and have a P as the nineteenth 
character of the name should not be used. 
Data sets with such names are created for 
temporary data sets on PCP systems, but not 
for temporary data sets on MVT or MFT 
systems, and are deleted when the IEHPROGM 
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utility is used and the SCRATCH utility 
control statement is specified with the 
VTOC, PURGE, and SYS keywords. 

Furthermore, a hierarchy of indexes may 
be devised to enable the operating system 
to find data sets faster. For example, an 
installation may divide its cataloged data 
sets into four groups: SCIENCE, ENGRNG„ 
ACCNTS, and INVNTRY. In turn, each of 
these groups may be subdivided into groups.. 
For example, the SCIENCE group may be 
divided into groups called MATH, PHYSICS, 
CHEM, and BIOLOGY; MATH may be further 
divided into ALGEBRA, CALCULUS, and BOOL. 
To find the data set BOOL, it is necessary 
to specify the names of all indexes of 
which it is a part, beginning with the 
largest group (SCIENCE), then the next 
largest group (MATH), and finally, the data 
set BOOL. The complete identification 
needed to find the data set BOOL is 
SCIENCE . MATH. BOOL. 

Data set names may be either unqualified 
or qualified. An unquali fied name is a 
data set name that is not preceded by an 
index name; for example, in the preceding 
text, if data sets were not indexed, BOOL 
would be an unqualified name. A qualifi ed 
name is a data set name preceded by index 
names representing index levels; for exam- 
ple, in the preceding text, the qualified 
name of the data set BOOL is 
SCIENCE. MATH. BOOL. 

Data set identification may also be: 
based upon the time of generation. In the 
System/360 operating system, a collection 
of successive historically related data, 
sets is called a generation d ata group . 

Some data sets are updated periodically, 
or are logically part of a group of data 
sets, each of which is created at a differ- 
ent time: for example, a series of data 
sets used for weather reporting and fore- 
casting. The data set name for these data 
sets might be WEATHER. A generation number 
is attached to the data set name to refer 
to a particular generation. The most 
recently cataloged data set is always 0; 
the generation before is -1; the genera- 
tion before -1 is -2; and so on. The 
generations for the generation data group 
WEATHER are: 

WEATHER (0) 

WEATHER (-1) 

WEATHER (-2) 

When a new generation data group is 
created, it may be called generation +1. 
After a job has created WEATHER (+1), the 
operating system changes its name to WEATH- 
ER (0) , if cataloged automatically. The 



data set that was WEATHER (0) at the 
beginning of the job becomes WEATHER (-1), 
and so on, and the oldest one is usually 
deleted automatically. 



PL/ I PROCESSING 



In the System/360 operating system, the 
output of the (F) compiler is called an 
ob jgct module (object program). The object 
module cannot be executed until the 
required references to functions and sub- 
routines are resolved (that is, identified 
for the use of the operating system) , and 
the object module is put into a format 
suitable for loading. Its external ref- 
erences are resolved by a program supplied 
by IBM called the linkage editor. 

The output of the linkage editor is 
called a load module. However, the input 
to the linkage editor may be either object 
modules or load modules. Linkage editor 
execution can be expanded further: several 
object modules and load modules may be 
combined to form one load module. The 
linkage editor automatically picks out the 
library functions and the requested subrou- 
tines and inserts them into the load 
module. The name of the library is speci- 
fied to the linkage editor by a SYSLIB DD 
card. For example, if the compiled object 
module TEST calls subroutines ALPHA and 
BETA (which in this example are assumed to 
be object modules) and the library function 
SIN (a load module), the linkage editor 
combines the object modules ALPHA, BETA, 
and TEST and the load module SIN to form a 
single load module. 

A program written in PL/I may call 
subprograms written in the assembler lan- 
guage. An example is given in Appendix D. 

After an object module is processed by 
the linkage editor, the resulting load 
module may be executed. Therefore, to 
execute a PL/I program, a minimum of three 
steps is necessary: 

1. Compile the PL/I source program 

2. Process the resulting object module 
and any load modules (which may 
include any PL/I subprograms) to form 
a load module 

3. Execute the load module 

Compiling, link- editing, and execution are 
a series of jobs and/or job steps; to the 
operating system, each job and job step is 
defined by the programmer. 
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Each compilation, the linkage editor 
execution, and the load module execution 
may be defined as separate jobs. (If this 
is done, there is only one job step in each 
job.) However, several single job steps 
may be combined into one job. For example, 
all the compilations may be combined. In 
this case, each compilation is a single job 
step. Furthermore, all of the steps, com- 
pilations, link- editing, and execution may 
be combined into one job. Then each compi- 
lation, the linkage editor processing, and 
the execution of the load module are separ- 
ate steps. An exception is that a batched 
compilation facility (described later) per- 
mits more than one compilation within a 
single job step. 



includes a directory which is used to 
locate a particular member. One of the 
uses of partitioned data sets is the stor- 
age of load modules. In fact, a load 
module can be executed only if it is a 
member of a partitioned data set. 



Cataloged 
groups do not 
access devices 
the operating 
sets and gener 
a PDS must 
device, and i 
data sets. 
directory of i 



data sets and generation data 
have to reside on direct- 
A catalog is maintained by 
system for cataloged data 
ation data groups. However, 
reside on a direct-access 
ts members must be sequential 
The PDS maintains its own 
ts members. 



To further clarify these distinctions, 
assume that a source program MAIN is to be 
compiled and executed- MAIN requires the 
services of two subprograms, SUB1 and SUB2, 
and neither subprogram is compiled. In 
this example, five steps are used to per- 
form the job: 



JOB: Multiple compilations, 
editing, and execution 

JOB STEP 1: Compile MAIN 

JOB STEP 2: Compile SUB1 

J,,_> STEP 3: Compile SUB2 

JOB STEP 4: Process by 
editor 



link- 



JOB STEP 5: Execute the 

module called MAIN 



linkage 
load 



Data Set Considerations 



A data set has been defined as a collec- 
tion of data. The (F) compiler and linkage 
editor are concerned with two types of data 
sets, sequential data sets and partitioned 
data sets. 

A sequential data set is a data set in 

which the records are arranged to be read 
in the sequence in which they are physical- 
ly stored. A sequential data set may 
reside on any type of volume. 

A partitioned data set (PDS) is a group 
of member s, each of which has many of the 
properties of a sequential data set, and 
which can be used individually as a sequen- 
tial data set. A partitioned data set must 
reside on a direct access volume, and it 



Cataloged Proc edure s 



An installation may have certain proce- 
dures to follow in its daily processing. 
For example, weather reporting is processed 
daily. To reduce the possibility of error 
in the daily reproduction of these job 
control statements, a cataloged procedure 
may be written. A cataloged procedure is a 
set of EXEC and DD control statements that 
are placed in a PDS accessed by the operat- 
ing system. The JOB statement cannot be 
cataloged. To describe a job step an EXEC 
statement may invoke a cataloged procedure. 
Because EXEC statements may be cataloged, 
the cataloged procedure may consist of a 
series of steps. The equivalent of a job 
step in a job is called a procedure step in 
a cataloged procedure. Cataloged proce- 
dures cannot be nested; that is, one cata- 
loged procedure cannot invoke another cata- 
loged procedure. 

For a job step, a number of data sets 
may be defined by the DD statement. DD 
statements may be written in cataloged 
procedures. To simplify the steps involved 
in compiling and link-editing, five cata- 
loged procedures have been supplied by IBM 
for the PL/I (F) compiler. These five 
cataloged procedures and their uses are: 

PL1DFC compilation with deck output 

PL1LFC compilation with object module 
output for linkage editor 
input 

PL1LFCL compilation and link-editing 

PL1LFCLG compilation, link-editing, and 
execution 

PL1LFLG link-editing and execution 
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JOB PROCESSING 



To execute a PL/I program three steps 
are required: compilation, processing of 
object output by the linkage editor, and 
execution of the load module. These steps 
all require the use of job control language 
statements. A summary of these statements 
is given in Figure 1. 



however, the parameter would appear on 
EXEC card within a cataloged procedure. 



an 



If the compiler is to be dynamically 
invoked by the CALL, LINK, XCTL, or ATTACH 
macro instructions, details of the method 
to be used will be found in Appendix F. 



r T" 

I Statement I 



Function 



JOB 



EXEC 



DD 



delimiter 
(/*) 



null (//) 



Indicates the beginning of 
a new job 



First statement for each 
job step. It indicates the 
cataloged procedure or 
program to be executed 



Describes data sets and 
controls device and volume 
assignment 



Used, when data is included 
in the input stream, to 
separate data from sub- 
sequent control statements 



Marks the end of the last 
job in an input stream 



Figure 1. Job Control Language Statements 

If data is included in the input stream, 
the data cards must normally be preceded by 
a DD * statement (e.g., SYSIN DD *) and 
followed by a delimiter statement, although 
these are not always necessary when operat- 
ing with a priority scheduler. For full 
details, refer to the publication IBM 

Syst 5^/360 Op er ating Sys tem r Job Contr ol 

Language. 

Job processing can often be simplified 
by using the cataloged procedures described 
in this chapter and in Appendix E of this 
publication. 



COMPILER PROCESSING 



The names for DD statements (ddnames) 
connect I/O statements in the compiler with 
data sets used by the compiler. Names for 
I/O device classes have also been esta- 
blished and must be used by the programmer. 
The program name for the compiler is IEMAA, 
so that if the compiler is to be executed 
in a job step, the parameter PGM=IEMAA must 
be used in the EXEC statement. Normally, 



COMPILER DDNAMES 



The (F) compiler uses a maximum of seven 
standard data sets. Each data set has been 
assigned a specific ddname in order to 
establish communication between the compil- 
er and the programmer. Each data set is 
specific function which must meet 
requirements for the PL/I (F) com- 
The ddnames, functions, and device 
for the data sets are given in 
These ddnames must be specified 



given a 

device 

piler. 

classes 

Figure 2. 

as ddnames for compiler DD statements, and 

must correspond to the function listed in 

Figure 2. The requirements for each data 

set designate which type of input/output 

device must be used for the data set. In 

addition to the seven standard data sets, 

each data set explicitly referenced in a 

compile-time INCLUDE statement must also 

have a corresponding DD statement. The 

device requirements for these data sets are 

the same as for the SYSLIB data set. 

To compile a PL/I program on the (F) 
compiler, two of these data sets are neces- 
sary: SYSIN and SYSPRINT, along with the 
direct-access volume that contains the 
operating system. With these two data 
sets, only the listing is generated by the 
compiler. If an object deck or a MACDCK 
deck is to be provided, a SYSPUNCH DD 
statement must be specified. If the object 
module is to be written, a SYSLIN DD 
statement must be supplied. SYSUT1 is 
always required if the SIZE option 
(explicitly or by default) specifies a 
value less than 53,248. With higher values 
of SIZE, the SYSUT1 data set is used only 
when the source program and internal tables 
cannot be wholly contained in main storage. 
The table of space requirements for SYSUT1 
(see "Compiler Device Classes") is a guide 
to when the data set will be used. For 
practical purposes, however, it is advisa- 
ble to include the DD statement for SYSUT1 
as a matter of course. SYSUT3 is used for 
compile-time processing, and for programs 
using the 48-character set. SYSLIB is used 
for compile-time processing of INCLUDE 
statements in which a ddname is not expli- 
citly specified. 
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ddnarne 


Function 

i _ __ _ 


j Possible ] 

j Device Classes | 

j. j 


SYSIN 


Source Input 




SYSSQ, the input stream device j 

(specified by DD *), or paper tape] 

reader j 

i 


SYSPRINT 


Listing Output 




1 

SYSSQ, or SYSOUT device | 

i 


SYSPUNCH 


Deck and MACDCK 
Output, or SYSOUT 
(punch) device 




J 
SYSCP, SYSSQ | 


SYSLIN 


Object Module Output 


SYSSQ | 


sYsun 


Auxiliary Storage for 
Text and Dictionary 


SYSDA | 


SYSUT3 


Auxiliary Storage for 
Compile- Time Process- 
ing and 48-Character 
Syntax 


SYSSQ j 


SYSLIB 


Default input for 
compile-time INCLUDE 
statements 


SYSDA 1 



Figure 2. Input/Output Data Sets 



r ■ t- 

Class Name j 
1- 



Class Function 



Device Type 



SYSSQ 



| Writing, reading 



Magnetic tape, DASD 



SYSDA j Writing, reading, updating records in 
j place 



DASD 



SYSCP j Intermediate or ultimate device for 
j punched cards 



Card punch, magnetic tape 
DASD 



Figure 3. Device Class Names 

For the DD statements SYSIN, SYSPUNCH, 
or SYSPRINT, an intermediate storage device 
may be specified instead of the card read- 
er, card punch, or printer, respectively. 



If an intermediate storage device is 
specified for SYSIN, the compiler assumes 
that the source program deck was placed 
there by a previous job or job steps. If 
an intermediate storage device is specified 
for SYSPRINT, the listing and diagnostic 
messages are written on the device; a new 
job or job step can print the contents of 
the data set. Similarly, if an intermedi- 
ate storage device is specified for SYS- 
PUNCH, the card deck is written on that 
device, and another job or job step will be 
needed to punch the card deck. Under the 
MVT system, this can be done automatically 
by specifying a SYSOUT data set. 



COMPILER DEVICE CLASSES 



Names for input/output device classes 
used for compilation are specified to the 
operating system at system generation time. 
The usual class names, functions, and types 
of devices are shown in Figure 3. 



The data sets used by the compiler must 
be assigned to devices eligible for the 
classes listed in Figure 2. 



It should be noted that a direct-access 
storage device may be used for all compiler 
devices. The SPACE parameter in the DD 
statement must be used if there is a 
possibility that the data set will be 
written on a direct-access device. 
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For most practical situations, the 
values used in the SPACE parameters of the 
data sets defined in the cataloged proce- 
dures in Appendix E will be adequate.. 
However, typical space requirements for 
various data sets can be calculated from 
tne following information (All values given 
are in bytes) : 

IR = number of input records (i.e., num- 
ber of records containing source 
text + number of records included 
through the compile-tirae INCLUDE! 
statement) . 

SR = number of records containing source 

statements after compile-time time 
processing is completed. 

SN = number of source statements after 
compile-time processing is complet- 
ed. 

VN = number of variables used in the 
program. 



SYSPRI_NT_Space Requirements 
Space required = 



SN 



150 



500 



1000 



T 1 

No. of tracks required 



SIZE f 



44K 



■+- 



100K 



200K 



44K 



100K 



200K 



44K 



100K 



200K 



T T 

2311 | 2301 | 2321 



31 



18 
22* 



64 



68 
74* 



15 
20* 



14 



9 
11* 



28 



34 
37* 



12* 



22 
24* 



92 
97* 



27 
33* 



192 
202* 



102 
111* 



27 

28* 



* EXTDIC option specified 



120x( IR 



+ SR 



10xSN 



+ VN 



+ VN 



30) 



if SOURCE2 oprion 
is specified 
if SOURCE option 
is specified 
if LIST option is 
specified 
if ATR option is 
specified 
if XREF option is 
specified 
bytes if EXTREF option 
is specified 



SYSUT3 Space Requirements 

Space required for 48-character set proc- 
essing = 2 x SR x (average record 
length) bytes 



Space required for compile-time 
processing = size of program after 
compile-time processing 



SYSLIN and SYSPUNCH Space Requirements 
Space required = 80 x SN bytes 



Space required for both 48-character set 
and compile-time processing = 
2 x (size of program after compile- 
time processing 



SYSUT1 Space Requirements 



Source programs which are large enough 
to cause the SYSUT1 data set to be used 
will compile more efficiently if this 
data set resides on a drum or in a 
contiguous area on a disk. 



Since it is not advisable to use 
EXTDIC if SIZE=44K, the figures for this 
value must be taken as applying to a 4 8K 
capacity. 



These formulas give only approximate 
answers, in that considerable variation 
may result from the nature of individual 
source programs. The figures given 
should provide adequate space in most 
cases. The secondary allocation facility 
should be used as a protection against 
exceptional requirements. 

SYSUT3 Records 

Record parameters on this data set 
depend on whether the MACRO or the CHAR4 8 
option is used. 
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If the MACRO option is specified (with 
or without the CHAR48 option), SYSUT3 
will be opened with the following param- 
eters: 

Record format: F (available size < 56K) 
FB(available size > 56K) 



Record size: 



8 bytes 



Blocking factor: 1 (available size < 56K) 
2 (available size > 56K) 

For available size, see 'SIZE Option". 

If the CHAR48 option (but not the 
MACRO option) is specified, SYSUT3 con- 
tains a CHAR48 and a CHAR60 copy of each 
source record. It is opened with the 
following parameters : 

Record format: F(available size < 56K) 
FB(available size > 56K) 
U(if SYSIN record format 
is U) 



Record size: 



SYSIN record length 



Blocking factor: 1 (available size < 56K) 
2 (available size > 56K) 

For available size,, see 'SIZE Option.* 



Data Set Write Verify (DASD) 

The Write Verify option for DASD is not 
fully supported for SYSUT1. Although the 
Write Verify may be requested by specifying 
OPTCD = w in the DCB for SYSUT1, not all 
the data blocks written on this data set 
will in fact be verified. Specifying the 
OPTCD parameter results in write verifica- 
tion only when a new dictionary or text 
block is written on the device; reuse of 
this block will not result in verification 
of the data written. 

The Write Verify feature is always avai- 
lable for use with a data block on other 
data sets on direct-access devices, and is 
obtained by specifying the appropriate 
option on the data set DD card. (See 
• supervisor and Data Management Services * ) 



BLOCKING OF COMPILER INPUT AND OUTPUT 



Blocki ng of Compiler Ingut 



The compiler allows the programmer to 
request blocked input on SYSIN (other than 
SYSIN DD DATA or *) by specifying a BLKSIZE 
parameter on the appropriate DD card or by 
obtaining the block size from the data set 
label (see Appendix A, "Compiler Input"). 



Of the 44K bytes minimum storage neces- 
sary for the F compiler, 1000 bytes are 
reserved for two SYSIN buffers, so that the 
SYSIN block size can always be up to 500 
bytes (i.e., the size of one SYSIN buffer). 
A block size greater than 500 bytes is 
allowed if the extra storage necessary for 
the SYSIN buffers is available in the 
amount of storage requested in the SIZE 
option (i.e., SIZE must be at least 44K - 
1K + 2 x block size). If the SIZE option 
does not allow for 45056 bytes more than 
the additional storage required by the 
SYSIN buffers, compilation will be termi- 
nated. 



Blocking of Compiler Output 



The compiler allows the programmer to 
request blocked output on SYSPRINT, SYS- 
PUNCH and/or SYSLIN by specifying a BLKSIZE 
parameter on the appropriate DD card. 

Of the 44K bytes minimum storage neces- 
sary for the F compiler, 258 bytes are 
reserved for two SYSPRINT buffers (129 
bytes each), 4 00 bytes are reserved for the 
SYSPUNCH buffer,, and 400 bytes are reserved 
for the SYSLIN buffer. Thus when SIZE=44K, 
SYSPRINT block size must be 129 bytes and 
SYSPUNCH and SYSLIN block sizes can be up 
to 400 bytes. Greater block sizes than 
these are allowed if extra storage for 
larger buffers is specified in the SIZE 
option. (See next section "Calculations 
for Storage Requirements.") 

If the SYSPUNCH block size or the SYSLIN 
block size is greater than 400 bytes and 
the SIZE parameter is not great enough to 
accommodate it,, then the corresponding com- 
piler options will be deleted. 

SYSPRINT block size must be of the form 
(4 + n x 125) bytes. If the SIZE option 
does not allow for 45056 bytes more than 
the additional storage required by the 
SYSPRINT buffers, compilation will be ter- 
minated. 

The E-level Linkage Editor cannot accept 
blocked input, so the compiler output 
should be blocked only if the F- level 
Linkage Editor is in use. 



Calculations for Storage .Requirements 



Storage requirements for blocking com- 
piler input and output should be based on 
the following: 

44K is needed for the compilation, and of 
this 
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1000 bytes are saved for two SYSIM 

Duffers (500 bytes each) 
258 bytes are saved for two SYSPRINT 

buffers (129 bytes each) 
400 bytes are saved for the SYSPUNCH 

buffer 
400 bytes are saved for the SYSLIN 

buffer 



If SYSIN block size is greater than 500 
bytes then (2 x SYSIN block size - 1K) 

is subtracted from the storage speci- 
fied by SIZE. 



COMPILER OPTIONS 



A number of compiler options are availa- 
ble to the programmer. These may be passed 
to the compiler through the PARM parameter 
on the EXEC card at compilation time. 
Included in the information that may be 
specified to the compiler are the following 
items : 



The amount of main storage allocated to 
the compiler for this compilation 



If SYSPRINT block size is greater than 129 
bytes then (2 x SYSPRINT block size - 
258) is subtracted from the remaining 

storage. 



If SYSPUNCH block size is greater than 400 
bytes then (SYSPUNCH block size - 400) 
is subtracted from the remaining stor- 
age. 



If SYSLIN block size is greater than 400 
bytes then (SYSLIN block size - 400) 
is subtracted from the remaining stor- 
age. 



The storage that finally remains must be 
equal to or greater than 44K. 



SYSgUNgH/SYSLIN in Batched Co mpilations 



Once SYSPUNCH or SYSLIN has been opened, 
it is left open and buffer space is allo- 
cated for all subsequent compilations in 
the oatch, whether or not there is any 
SYSPUNCH or SYSLIN output for those compi- 
lations. 

If SYSPUNCH or SYSLIN block sizes great- 
er than 400 are asked for, the extra space 
needed for the larger buffers will be 
subtracted from the SIZE specified for each 
compilation in the batch before calculating 
the text and dictionary block sizes. In. 
some cases, compilations which do not have 
SYSPUNCH or SYSLIN output may be allocated 
smaller text and dictionary block sizes 
than they would otherwise get if they 
follow a compilation which opened SYSPUNCH 
or SYSLIN. If SYSPUNCH or SYSLIN has been 
successfully opened with a big block size 
and a following compilation specifies 
SIZE < (44K + extra buffer space needed), 
this will be ignored and SIZE = (44K + 
extra buffer space needed) will be assumed. 



The number of lines to be printed on 
each page of the source listing 

Whether a source program listing is to 
oe printed 

Whether an object program listing is to 
oe printed 

Whether a list of the compiler options 
specified for the program is to be 
printed 

Whether a listing of the External Sym- 
bol Dictionary (ESD) is to be provided 

Whether a list of the attributes of 
identifiers is to be provided 

Whether a list of cross-references to 
identifiers is to be provided 

Whether the compiler is to produce an 
object module for input to the linkage 
editor, output either as a data set on 
SYSLIN, or SYSPUNCH, or both, as the 
user requires 

Whether the compiler is to produce the 
linkage editor control statement NAME 
to follow either the object module or 
the oDject program deck 

The level of optimization required 

Whether the source code is in BCD or 
EBCDIC 

The specification of source margins and 
the specification of a carriage control 
character for the source program list- 
ing 

The choice of 48- or 60-character set 
for source programs 

Whether diagnostic messages produced 
during execution are to include state- 
ment numbers from the source program 

The choice of severity level at which 
diagnostic messages will be printed 
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Whether compile-time processing is 

required 

Whether a compile-time processor input 
listing is to be printed 

Whether compile-time processing is to 
be followed by compilation 

Whether the extended dictionary is to 
be used 

Whether a nesting block level is to be 
printed next to each statement number 

Whether a sequenced card deck is to be 
punched as the macro-processor output 

Whether the object program is to be 
executed on a System/360 Model 91 





| Compiler 


Abbreviated 


Standard | 


j option 

u — — -i 


name 
L _ _. 


default | 
l — — i 


r 1 


r — — 


r 1 


|SIZE=yyyK|yyyyyy 


SIZE 


999999 ] 


| LINECNT=xxx 


LC 


50 | 


|SOURCE|N0S0URCE 


S| NS 


SOURCE | 


| LI ST | NOLI ST 


L| NL 


NOLI ST j 


|OPLIST|NOOPLIST 


OLj NOL 


OPLIST | 


JEXTREFJ NOEXTREF 


E|NE 


NOEXTREF | 


| ATR] NOATR 


A|NA 


NOATR | 


|XREF| NOXREF 


X| NX 


NOXREF | 


| DECK| nodeck 


D|ND 


NODECK j 


|LOAD|NOLOAD 


LDJ NLD 


LOAD j 


| OBJNM=aaaaaaaa 


N . 


No actionj 


| OPT=nn 





01 | 


| BCD] EBCDIC 


B]EB ( 


EBCDIC ] 


| SORMGIN=(mmm, nnnl, 


SM 


(2,72) | 


| ccc] ) 






|CHAR60|CHAR48 


C60JC48 


CHAR6 | 


|STMT|NOSTMT 


ST|NST 


NOSTMT j 


J FLA3W | FLAGE J FLAGS 


FW|FE|FS 


FLAGW j 


| MACRO |NOMACRO 


M|NM 


NOMACRO | 


| S0URCE2 j N0S0URCE2 


S2| NS2 


SOURCE2 | 


|COMP|NOCOMP 


C|NC 


COMP | 


| EXTDICl NOEXTDIC 


ED] NED 


NOEXTDIC ] 


|NEST|NONEST 


NT]NNT 


NONEST | 


]MACDCK|NOMACDCK 


MD|NMD 


NOMACDCK | 


|M91] N0M91 




NOM9 1 | 



conflicting options are specified the last 
specification in the list will be used. 
The default for all options (except OBJNM) 
can be set at system generation time to 
suit the requirements of the installation. 
In the absence of any such setting, the 
standard defaults shown in the table below 
will be effective. The DELETE parameter of 
the system generation PL1 macro instruction 
(described in the publication IBM 

System/360 Operating System, System 

Generation) may be used at system genera- 
tion time to specify any compiler options 
not to be used at compilation time. 

SIZE=yyyyyy| yyyK| 999999 - The SIZE option 
indicates to the compiler the amount 
of main storage (in bytes) available 
for the compilation. The programmer 
specifies this amount as one of the 
following : 

vyyyyy: This gives the number of bytes 
available for the compilation. For 
blocked input, the amount yyyyyy must 
be greater than 45056 + (2+SYSIN 
BLKSIZE if BLKSIZE>500) + (2+SYSPRINT 
BLKSIZE if SYSPRINT is blocked). If 
it is not, the compiler will terminate 
abnormally. For unblocked input, if 
the amount yyyyyy is less than 45056, 
the default size is taken. 

yyyK: This gives the number yyy of K 
units (K = 1024 bytes) available for 
the compilation. If the number of 
bytes specified is less than 44K, a 
message is printed and the default 
size is taken. 



l . x x J 



999999: This instruct 
obtain as much main s 
If this amount is 1 
compiler will comment 
attempt to continue 
terminate abnormall 
compiler calculation 
storage available is 
mation, SIZE=999999 s 
if the amount of stor 
less than 48K. 



s the compiler to 
torage as it can. 
ess than 44K, the 
and then will 
later it may 
y. Because the 
of the amount of 
only an approxi- 
hould not be used 
age available is 



The list of compiler options following 
the equals sign in the PARM parameter must 
be enclosed in quotation marks; the separ- 
ate options are separated by commas. The 
list must not exceed 40 characters includ- 
ing commas, but excluding the quotation 
marks. Because of the 40 character limita- 
tion, the compiler has been designed to 
accept the. abbreviated compiler option 
names given in the table below, as alterna- 
tives to the longer mnemonics. Where an 
option includes a numerical specification, 
as in SIZE, LINECNT, OPT, and SORMGIN, only 
significant digits need be specified by the 
user. There is no required order for 
specifying the compiler options, but if 



The partition (MFT) or region (MVT) in 
which the compilation step is executed 
must be at least 8K larger than the 
amount specified in the SIZE option. 
Failure to ensure this may result in a 
system abnormal termination before the 
compiler can provide any diagnostic 
aid. 

The following table shows the text and 
dictionary block sizes used for various 
core availabilities as specified by the 
SIZE option. The available size is the 
amount specified in the SIZE option minus 
the extra space needed for larger input and 
output buffers. The text and dictionary 
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block sizes are determined from the amount 
available after any extra storage needed 
for larger input/output buffers has been 
subtracted from the amount specified in the 
SIZE option. 



Available Size 
(bytes) 



45,056 - 57,343 

57,344 - 73,727 

73,728 - 135,167 

135,168 - 172,031 

172,032 or more 



■T T 

| Block Size | 
| (bytes) j 



1,024 
2,048 
4,096 
8,192 
16,384 



LINECNT=xxx - the LINECNT option informs 
the compiler how many lines are to be 
printed on a page of listing. The 
number specified includes heading 
lines and blank lines. If a number is 
not specified, a standard default of 
50 lines is assumed. 



object program listing is given in the 
section called "Compiler Output." 

OPLIST or NOOPLIST - the OPLIST option (the 
standard default ) causes the list of 
compiler options to be printed. The 
NOOPLIST option provides that no such 
list shall be printed. 

EXTREF or NOEXTREF (External Listing) - the 
EXTREF option causes a listing of the 
external symbol dictionary (ESD) to be 
provided. The NOEXTREF option speci- 
fies that no listing is required and 
is the standard default assumed if no 
option is specified. A description of 
the ESD listing is given in the sec- 
tion called "compiler Output. " 

ATR or NOATR (Attribute Table) - the ATR 
option gives: 

1. A table snowing,, for each iden- 
tifier: 



SOURCE or NOSOURCE (Source Program 
Listing) - the SOURCE option specifies 
that the source program is to be. 
written on the device indicated on the 
SYSPRINT DD card. The source listing 
is in the same character set as the 
source records. The statement number 
of the first statement in each line is 
printed to the left of that line, but 
a statement number is not given on a 
line containing only a continued 
statement. NOSOURCE indicates that no 
source listing is required. If neith- 
er option is specified, the compiler 
assumes the standard default SOURCE. 
A description of the listing is given 
in the section called "Compiler Out- 
put." 

LIST or NOLIST (Object Program Listing) - 
the LIST option specifies that gener- 
ated machine instructions are to be 
listed in a format resembling the 
listing output of the operating 
system/360 assembler program. (This 
output is not suitable for use as 
input to the assembler.) Each line 
contains the location counter value 
and text in hexadecimal, the mnemonic: 
symbol for the operation code, and a 
variable field in assembler language 
format. Source program identifiers 
are used wherever possible, and com- 
ments are inserted to assist in corre- 
lation with the source program. When 
the LIST option is specified, a STATIC 
INTERNAL storage map is also printed. 
The NOLIST option indicates that no 
object program listing or STATIC 
INTERNAL storage map is to be provid- 
ed. If no option is specified, the 
standard default, NOLIST, is assumed 
by the compiler. A description of the 



Statement number of tne statement 
in which the identifier is 
declared 



Identifier 
structures 



and 



all containing 



A list of attributes pertaining to 
the identifier 

2. A listing showing the length, in 
bytes, of every aggregate (array 
or structure) variable declared or 
allocated with fixed extents with- 
in the program. 

The list of identifiers is sorted, igno- 
ring the qualification. The NOATR option 
specifies that no listing is required and 
is the standard default assumed if no 
option is specified. A description of the 
attribute listing is given in the section 
called "Compiler Output. " 

XREF or NOXREF (Cross Reference Table) - 
the XREF option produces output show- 
ing, for each identifier: 

Statement number of the statement 
in which the identifier is 
declared 



Identifier 
structures 



and all containing 



List of all statements in which a 
reference is made to the identifi- 
er 

The list of identifiers is sorted, 
ignoring the qualification. The NO- 
XREF option indicates that no cross 
reference listing is required, and is 
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the standard default assumed if no 
option is specified. A description of 
the listing is given in the section 
called "Printed Listings." 

DECK or NODECK (Object Program Deck) - the 
DECK option specifies that the com- 
piled program (i.e. the object 
module) is to be output in the form of 
a sequenced card deck in linkage edi- 
tor format. The data set is defined 
by a SYSPUNCH DD statement. No job 
control statements, (DD cards, etc.) 
are generated by the compiler. NODECK 
specifies that no object program deck 
is required; if NODECK is specified, 
the DD statement SYSPUNCH is not 
required. If no option is specified, 
the standard default, NODECK, is 
assumed. A description of the deck is 
given in the section called "Compiler 
Output." 

LOAD or NOLOAD (Object Program Output) - 
the LOAD option causes object program 
output to be produced as a sequential 
data set defined by a SYSLIN DD state- 
ment in standard linkage editor input 
format. NOLOAD specifies that no load 
module is to be created. LOAD is 
assumed as the standard default if no 
option is specified. If NOLOAD is 



specified, the 
not required. 



DD statement SYSLIN is 



OBJNM=aaaaaaaa - this option causes the 
compiler to produce the linkage editor 
control statement NAME following eith- 
er the object module, the object pro- 
gram deck, or both. If neither LOAD 
nor DECK has been specified 
(explicitly or by default), the use of 
this option will have no effect. The 
NAME statement produced will be of the 
following form: 

bNAMEbaaaaaaaa ( R) 

where aaaaaaaa represents the name 
given, which may have up to eight 
characters, and b represents one or 
more blanks. 

Care should be taken when using this 
option in conjunction with cataloged 
procedures, otherwise the program name 
used in the EXEC statement will be 
incorrect. The principal purpose of 
this option is to enable the user to 
create a partitioned data set of load 
modules from a series of batched com- 
pilations, by means of the linkage 
editor. 

OPT=nn (Optimization) - two alternative 
levels of optimization are available 



to the user. The decimal integer 
constant (nn) indicates the level 
required. The choice depends upon 
whether the prime concern of the user 
is execution speed or object-time 
storage space. 

OPT=00: in this case, the object-time 
storage requirement is kept to a mini- 
mum. 

OPT=01: in this case, the execution 
speed is improved at the expense of 
object-time storage space. 

The difference in the compilation time 
for the two options is negligible. 
The standard default assumption if 
neither is specified is OPT=01. 

BCD or EBCDIC Source Code - the BCD or 
EBCDIC option allows the programmer to 
state in which character code his 
source program is punched. The BCD 
and EBCDIC punched card codes and 
graphics for the PL/I 60-character set 
are shown in Figure 4. If neither 
option is specified, the standard 
default assumption is EBCDIC. 

SORMGIN=(mmm, nnn [, ccc] ) - the source margin 
option allows the programmer to speci- 
fy: 

mmm,nnn - margin for source statements 

ccc - carriage control character posi- 
tion (optional) 

The values for these arguments are 
subject to the constraints: 



mmm < nnn < 100 

ccc must be 
(mmm, nnn) . 



outside the range 



The carriage control characters are: 



Skip one line before printing 
Skip two lines before printing 
Skip three lines before print- 
ing 

Suppress space before printing 
Skip to Channel 1 (i.e. start 
new page) 



If the source margin is not specified, 
a standard default of SORMGIN=(2, 72) 
is assumed. The compile-time proc- 
essor produces output requiring mar- 
gins (2,72) and changes SORMGIN 
accordingly. The default value for 
the carriage control character is 
installation-defined, that is, the 
user must decide at system generation 
whether a default is required and what 
it is to be. 
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Figure 4. BCD and EBCDIC Punched Card Codes and Graphics for PL/I 60-character Set 



CHAR60 or CHAR4 8 - this option allows the 
source language to be written in one 
of two character sets: 60- or 
48-characters. The standard default 
assumed if no character set is 
specified is the 60-character set,. 
Note that all characters in the 
60-character set are acceptable to the 
compiler, even when the CHAR48 option 
has been selected. However, there are 
two points to be borne in mind by 
anyone intending to use 60-character 
set input after selecting the CHAR48 
option. Firstly, the restrictions of 
the 48-character set must be observed 
in the 6 0-character set input .„ 
otherwise errors may result. Second- 
ly, such a mode of operation is inef- 
ficient, and should not, therefore, be 
made a general practice. 

STMT or NOSTMT - the STMT option specifies 
to the compiler that extra code is to 
be produced which will allow diag- 
nostic messages printed during execu- 
tion of the compiled program to con- 
tain statement numbers from the source 



program, in addition to offsets rela- 
tive to PL/I entry points; these off- 
sets alone are given if NOSTMT is 
specified. The standard default 
assumed if no option is specified is 
NOSTMT. 

Note: The average PL/I program can be 
executed without significant degrada- 
tion in speed or space requirements. 
However, the use of the STMT option 
will cause both the execution time and 
the object-code space requirements to 
increase in direct proportion to the 
number of statements in the program. 
The benefits obtained as a result of 
the debugging aid that this option 
gives, should offset and justify these 
increases. 

FLAGW | FLAGE | FLAGS - a high level of diag- 
nostic capability is available in the 
(F) compiler. Compile-time processor 
diagnostic messages are written after 
the SOURCE2 listing and before the 
source program listing. All other 
diagnostic messages are written in a 
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group following the source program 
listing. In both cases, messages are 
listed in order of their severity- 
There are four classes of diagnostic 
messages, which are graded in order of 
severity: 



T Y,P?, o£ , ,.,Mg§.§,§9! e . 
warning (lowest) 

error 

severe error 



Specification 

FLAGW 
FLAGE 



FLAGS 



terminal error (highest) 



A Warning i s a message that calls atten- 
tion to a possible error, although the 
statement to which it refers is syntacti- 
cally valid. In addition to alerting the 
programmer, it may assist him in writing 
more efficient programs in the future. 

An Error message describes an attempt to 
correct an erroneous statement; the pro- 
grammer is informed of the correction. 
Errors do not normally terminate processing 
of the text. 

A Severe error message indicates an 
error which cannot be corrected by the 
compiler. The incorrect section of the 
program is deleted, but compilation is 
continued. Where reasonable, the ERROR 
condition will be raised at object time, if 
execution of an incorrect source statement 
is attempted. If a severe error occurs 
during compile-time processing, compilation 
will be terminated after the SOURCE listing 
has been produced. 

A Z®£2liG£Ll error message describes an 
error which, when discovered, forces the 
termination of the compilation. 

The choice of the severity level at and 
above which diagnostic messages appear on 
the output is an option which may be 
selected by the programmer. FLAGW is 
assumed if no level is specified. 

A source program message consists of the 
(F) compiler's identification code (IEM) 
followed by a number which is unique to 
this message. Where applicable, the state- 
ment number to which the message refers is 
given next. The message then follows. It 
will normally refer to the number of the 
statement which has produced the diagnostic 
message with the number corresponding to 
that on the source program listing. It may 
also contain a numeric parameter, a source 
program identifier, or a segment of source 
program text. During compile-time process- 
ing, messages will contain input line num- 
bers, source text identifiers, or segments 
of source text. 



Exampl e: 

IEM0096I 23 SEMI-COLON NOT FOUND WHEN 
EXPECTED IN STATEMENT NUMBER 
23. ONE HAS BEEN INSERTED. 

A detailed list of diagnostic messages 
is given in Appendix G of this publication. 

MACRO or NOMACRO - the MACRO option indi- 
cates that compile-time processing is 
required. The NOMACRO option causes 
the compile-time processor to be 
bypassed. If no option is specified, 
the compiler assumes the standard 
default NOMACRO. 

S0URCE2 or N0S0URCE2 - the S0URCE2 option 
indicates that the input to the 
compile-time processor is to be listed 
on the device indicated on the SYS- 
PRINT DD card. The S0URCE2 listing is 
in the same character set as the input 
text. Each line is preceded by a line 
number. N0S0URCE2 suppresses the 
listing of compile-time processor 
input. If no option is specified, the 
compiler assumes the standard default 
S0URCE2. If MACRO has not been speci- 
fied, the S0URCE2 option is ignored. 

COMP or NOCOMP - the COMP option specifies 
that compilation is to proceed after 
compile-time processing has been com- 
pleted. NOCOMP specifies that compi- 
lation is not required. If neither 
option is specified, the compiler 
assumes the standard default COMP. If 
MACRO has not been specified, 
COMP | NOCOMP is ignored. 

EXTDIC or NOEXTDIC - The EXTDIC option pro- 
vides a compiler dictionary with a 
capacity 1.5 times that of the normal 
dictionary if the block size is 1K 
bytes, and 3.5 times that of the 
normal dictionary if the block size is 
greater than 1K. This allows success- 
ful compilation of some larger pro- 
grams that would otherwise overflow 
the dictionary capacity. As the use 
of EXTDIC reduces compilation speed, 
it should be specified only when the 
program will not compile with the 
normal dictionary. The default is 
NOEXTDIC. 

Programs that are large enough to 
require the EXTDIC option will compile 
very much more efficiently if a large 
storage size is available to the com- 
piler. Enough storage should be spec- 
ified, if possible, for the dictionary 
to be held in storage throughout the 
compilation. As a rough rule, the 
SIZE option should allow about 100,000 
bytes plus 75 times the number of 
identifiers in the source program. 
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EXTDIC should not 
SIZE<47104 bytes. 



be 



used 



if 



NEST or NONEST - If NEST is specified, a 
number is printed under the heading 
LEVEL showing the depth of block- 
nesting for the first statement on 
each line of the source program 
listing, and a number is printed under 
the heading NEST showing the depth of 
DO-group nesting for such statements 
which are contained within DO groups. 

MACDCK or NOMACDCK - The MACDCK option 
causes the output records of the macro 
processor to be written on SYSPUNCH as 
sequenced card images. The default is 

NOMACDCK. 

M91 or N0M91 - the M91 option must be spec- 
ified when the object program is to be 
executed on an IBM System/360 Model 
91. This option may be specified in 
the PARM field of the EXEC card at 
compilation time or it may be set 
during system generation time. The 
standard default for this option is 
N0M91. 
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terminated and, if the SOURCE 
option has been specified, a list- 
ing of the PL/I program text pro- 
duced by the compile-time proc- 
essor will be printed 

Terminal error messages issued; 
compilation terminated abnormally; 
successful execution impossible 



JOB CONTROL PROCEDURE FOR COMPILATION 



An example of a job control procedure 
showing the job control cards and deck 
required for a compilation is shown below. 



//J0B1 



JOB 123, JOHNSMITH, 
MSGLEVEL=1 



//STEP1 EXEC PGM=IEMAA, PARM= 
'options' 

//SYSPUNCH DD SYSOUT=B 

//SYSPRINT DD SYSOUT=A 



COMPLETION CODES FOR THE COMPILER 



At the end of compilation, the compiler 
returns a completion code to the operating 
system indicating the degree of success 
achieved in compilation of the source pro- 
gram and anticipated in execution of the 
object program. Tests of this code may be 
requested on the JOB and EXEC cards of the 
job control language, allowing later steps 
of a job to be suppressed if compilation 
has not achieved the required degree of 
success. The compiler completion codes 
are: 

Code Meaning 

No diagnostic messages issued; 
compilation completed with no 
errors; successful execution 
expected 

4 Warning messages only issued; pro- 
gram compiled; successful execu- 
tion is probable 

8 Error messages issued; compilation 
completed, but with errors; execu- 
tion may fail 

12 Severe error messages issued; com- 
pilation may be completed, but 
with errors; successful execution 
improbable. If a severe error 
occurs during compile-time proc- 
essing, the compilation will be 



//SYSUT1 DD UNIT=SYSDA, 

SPACE=(1024, (60,60)) , 
SEP=( SYSPRINT, 
SYSPUNCH) 

//SYSIN DD * 

(Source Program Deck) 

/* 

Batched Compilation 



A facility is available which allows 
more than one external procedure to be 
compiled within the same job step. This is 
achieved by preceding the second (and each 
subsequent) compilation by a control record 
of the following form: 

* PROCESS ( 'options' ) ; 

The first character of the record is an 
asterisk, which must appear in column 1. 
It denotes the end of the preceding source 
deck. Note that if SORMGIN= ( 1, 72) has been 
specified, this facility is obtained only 
when there is an asterisk in column 1 and 
the first non-blank character string is 
PROCESS. 

Any number of spaces,, or no space, is 
acceptable between the asterisk and the 
keyword PROCESS. Spaces are permitted 
between: 
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1. The keyword PROCESS and the option 
list delimiter 



op 



ie option list delimiter and the 
tions 



The option list delimiter and the 
s ami- colon 



Opti 
commas 
card. 



The options to be listed are the compil- 
er options to be used in compiling the 
source deck that follows. If any option is 
not listed, the installation default is 
assumed; there is no carry-over of the 
options listed on the preceding EXEC card. 
If the user does not wish to specify any 
options explicitly, he can simply place the 
terminating semicolon immediately after the 
word PROCESS. The number of characters in 
the option list is limited only by the 
length of the record, and may exceed 40 
characters. 



The 
limite 
The red 



The 
is the 
indivi< 



The 

are ei 



cards 
tnat 
may re 
batch. 



ons in the list are separated by 
as in the PARM field on the EXEC 



length of the control record is 
to the length of the SYSIN record, 
iord must be punched in EBCDIC. 



return code given for the job step 
highest code from those which the 
ual compilations would return. 



advantages of batched compilation 
reduction of control program 



overneaids, and a reduction in the number of 



tjio be punched. The disadvantage is 

4 terminal error in one compilation 

ult in termination of the wnole 



The following example shows the job 
control statements required (in conjunction 
with cataloged procedure PL1LFCL) : to batch 
compile three separate source programs; to 
link- edit source program 1 as one load 
module> source programs 2 and 3 together as 
a second load module, and to put both load 
modules! into an existing cataloged data 
set; and to execute both load modules. 



//BTCHCP JOB PL1PR0G,MSGLEVEL=1 

//STPCMP EXEC PROC=PL1LFCL, 

PARM. PL1L=' LOAD, 
NODECK, OBJNM=BATCHA' 

//PL1L. SYSIN DD * 

source program one 

* PROCESS ('LOAD, ATR, NODECK' ) ; 

source program two 

* PROCESS ( 'LOAD, LIST, ATR, NODECK, 

OBJNM=BATCHB' ) ; 



source program three 



/* 



//LKED- SYSLMOD DD DSNAME=PL1 . PROGRAMS, 

DISP=OLD 



JOB PL1PROG, MSGLEVEL=1 

DD DSNAME=PL1. PROGRAMS, 
DISP= (OLD, PASS) 

EXEC PGM=BATCHA 

DD SYSOUT=A 

EXEC PGM=BATCHB 

DD SYS0UT=A 



//BTCHEX 
//JOBLIB 

//STPEXA 
//SYSPRINT 
//STEPEXB 
//SYSPRINT 

COMPILER OUTPUT 



The compiler can generate listings of 
source statements, compile-time statements, 
attributes, cross references. External Sym- 
bol Dictionary entries, aggregate lengths 
and object code. Source program and 
compile-time diagnostic messages are also 
produced during compilation. 



PRINTED LISTINGS 



The first page has the following head- 
ing: VERSION x RELEASE zz on the left-hand 
side of the page (where x indicates the 
version of the compiler, and zz the 
System/360 operating system release 
number); OS/360 PL/I COMPILER (F) in the 
center of the page; and DATE yy.ddd on the 
right-hand side of the page (where yy=year 
and ddd=day) . Page numbering, which 
appears at the top right-hand corner of 
each page, begins on this page. Following 
the heading is the invocation parameter 
list containing the options specified for 
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the compilation. The diagnostic messages, 
if any, associated with the specification 
of compiler options appear next. 

If the compiler options specified 
include OPLIST, these diagnostic messages 
are followed by a complete list of the 
compiler options used for the compilation. 
This list includes all options validly 
specified at the time of invocation, as 
well as those options assumed by default. 

Each page thereafter has a heading and a 
page number. If the compiler is invoked by 
an EXEC statement, the heading used is the 
first record of PL/I source text read from 
the input source (SYSIN). 

The listings consist of the following 
items in the order given; items 1 through 
10 depend on the appropriate compiler 
options being selected and specified on the 
EXEC statement card; items 5 through 9 are 
not produced if a terminal error halts the 
compilation. 

1. List of compiler options specified 

2. Compile-time processor input listing 

3. Compile-time processor diagnostic mes- 
sages 

4. Source program listing 

5. Attribute and/or cross reference table 
i 6. Aggregate length table 

7. Storage requirements listing 

b. External symbol dictionary listing 

9- Assembly listing 

10« Source program diagnostic messages 

The time taken for the compilation is also 
shown on the listing. 



Compiler_Op_tions 



The compiler options listed are those 
used for the particular compilation. A 
description of the options is given in the 
section called "Compiler Processing." 



Compile-TimeProcessor Input Listing 



If the MACRO and SOURCE2 options are 
specified, the input to the compile-time 
processor is written on the output device 



specified in the SYSPRINT DD statement, one 
input record per line. Each line is 
assigned a number which appears to the left 
of the line. 

Example: 

1 % DCL A CHAR, B FIXED; 

2 % A='B+C ; % B=2; 

3 X=A; 



Source Program Listing 



specified, the 
en on the output 
SPRINT DD state- 
card are printed 
e control charac- 
e may be skips 
page. The number 
tarting on that 
left-hand side of 



If the SOURCE option is 
source program is writt 
device specified in the SY 
ment. The contents of one 
on one line; if a carriag 
ter is specified, thes 
between lines or to a new 
of the first statement s 
line is printed at the 
that line. 

Example : 

1 PGMNAME: 

PROCEDURE; 



2 DECLARE A STATIC, 

3 B AUTOMATIC; A=B; 

For numbering purposes, statements con- 
tained witnin compound statements (IF and 
ON) are counted, as well as the compound 
statements themselves. In addition, when 
an END statement closes multiple groups or 
blocks, all implied END statements are 
included in tne count. 



Examp_l« 


=» " 




1 


P: 


PROC; 


2 


X: 


BEGIN; 


3 


IF 


A=B 


4 


THEN 


A=1; 


5 


ELSE 


DO; 


6 




A=0; 


7 




C=B; 


8 




END X; 


10 




D=E; 


11 




END; 
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If 

by th 
opti 
will 
info 

to del 
was g 



the input to the compiler is produced 

compile-time processor, the SORMGIN 

will be (2 f 72) and columns 73-80 

jpontain auxiliary information. This 

ion can be used by the programmer 

termine how the input to the compiler 

enerated from the original input. 



oh 



rinat 



Th^se columns, which are listed as part 
of th£ SOURCE listing, are used as follows: 



COL USE 

73-77 Contains the input line number 
from which this output line was 
generated. These numbers corres- 
pond to the line numbers printed 
with the SOURCE2 listing. 



78-7 9 Contains a two-digit number giv- 
ing the maximum depth of replace- 
ment which occurred for this 
line. If no replacement 
occurred, this field will be 
blank. 



80 If an error occurs while replace- 
ment is being attempted (e.g., a 
% is found in a replacement 
value) , this column will contain 
the letter "E". Otherwise it 
will be blank. 

If the NEST option is specified then: 

1. the block level at the begining of the 
tatement indicated is printed next to 
the statement number for that line. 

^n iterative DO level count is printed 
lext to the level count. 



Examp_. 


.e: 




STMT : 


-EVEL 


NEST 


1 






2 


1 




3 


2 




4 


2 


1 


5 


2 


2 


6 


2 


1 


7 


3 


1 


8 


2 


1 


9 


1 





A: PROC OPTIONS (MAIN); 
B: PROC (L) ; 

DO I = 1 TO 10; 

DO J = 1 TO 10; 
END; 
BEGIN; 
END; 
END B; 
END A; 



Sto rage Requirements 



Th:is listing is printed out whenever the 
SOURCE option is in effect and gives the 
following information in bytes: 



Storage area for each procedure 
Storage area for each begin block 
Storage area for each on-unit 
Length of program CSECT 
Length of static CSECT 



Attribute and Cross Reference Table 



If the ATR option is specified, the 
identifiers used in the program are listed 
in alphameric order, together with their 
explicitly declared and default attributes. 



The attributes INTERNAL, NORMAL, and 
REAL are not listed; these attributes can 
be assumed unless the conflicting attri- 
butes EXTERNAL, ABNORMAL, and COMPLEX are 
listed. 



For file identifiers, only explicitly 
declared attributes are listed, except for 
EXTERNAL, which is listed even when applied 
by default. 



For an array, the dimension 
printed first. The dimensions 
as in the declaration except 
sions are replaced by asterisk 
and expressions for string 
represented in the length att 
same way as constants and exp 
array dimensions are repres 
dimension attribute. 



attribute is 

are printed 

that expres- 

s. Constants 

lengths are 

ribute in the 

ressions for 

ented in the 



If an identifier is declared in a 
DECLARE statement, it is preceded by the 
number of that statement. Statement labels 
and entry labels are preceded by the defin- 
ing statement number. No statement number 
precedes a contextually declared identifi- 
er. 



If the XREF option is specified in 
addition to the ATR option, each identifier 
has the numbers of all the statements in 
which it occurs printed immediately below 
its attributes. 



If the XREF option is specified without 
the ATR option, the table is printed with- 
out the attributes. 
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Example: 

1 QQ: PROCEDURE; 

2 DCL 1 A r 2 B(3) f 2 C, 3D; 

3 DCLG(10,10) CHAR(2); 

4 DCL 1 E, 2 F LIKE C; 

5 DCL 1(10) CHAR(2) DEF G( 1SUB, 1SUB) ; 

6 DCL 1 J, 2 K BITU), 2 L BIT (9); 

7 DCL S(V) ; 

8 DCL H(10, 10) CHAR(2) DEF G; 

9 DCL U(*) CONTROLLED; 

10 DCL 1 M BASED(P), 2 N POINTER, 2 T; 

11 DCL Y(2:4,II) ; 

12 DCL X(2:II) ; 

13 DCL W AREA; 

14 DCL Z(II:JJ,2) ; 



W) SET (Q); 



15 ALLOCATE M IN (W) SET (P) ; 

16 GET LIST(P-XT) 

17 ALLOCATE M IN 

18 GET LIST(Q->T) 

19 P->N=Q; 

20 PUT LIST(Q->T) 

21 R=4; 

22 ALLOCATE U(R) ; 



150 END QQ; 



The foregoing procedure will produce the following attribute and cross reference 
table. 

ATTRIBUTE AND CROSS-REFERENCE TABLE 

ATTRIBUTES AND REFERENCES 

AUTOMATIC, UNALIGNED, STRUCTURE 

( 3) IN A, AUTOMATIC, ALIGNED, DECIMAL, FLOAT (SINGLE) 

IN A, AUTOMATIC, UNALIGNED, STRUCTURE 

IN C IN A, AUTOMATIC, ALIGNED, DECIMAL, FLOAT( SINGLE) 

IN F IN E, AUTOMATIC, ALIGNED, DECIMAL, FLOAT (SINGLE) 

AUTOMATIC, UNALIGNED,, STRUCTURE 

IN E, AUTOMATIC, UNALIGNED, STRUCTURE 

(10,10) AUTOMATIC, UNALIGNED, STRING ( 2) , CHARACTER 

(10,10) AUTOMATIC, DEFINED, UNALIGNED , STRING ( 2 ) , CHARACTER 

( 1 0) AUTOMATIC, DEFINED, UNALIGNED, STRING (2 ) , CHARACTER 

AUTOMATIC, ALIGNED, B INARY, FIXED (15,0) 
14, 12, 11 

AUTOMATIC, UNALIGNED, STRUCTURE 

AUTOMATIC, ALIGNED, BINARY, FIXED (1 5,0) 
14 

6 K IN J # AUTOMATIC, UNALIGNED, STRING (1), BIT 
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DCL NO. 


IDENTIFIER 


2 


A 


2 


B 


2 


C 


2 


D 


4 


D 


4 


E 


4 


F 


3 


G 


8 


H 


5 


I 




II 


6 


J 




JJ 



6 
10 

10 



10 



13 

12 
11 

14 

The 
floati 



Q 

QQ 
R 

S 

SYSIN 

SYSPRINT 



IN J. AUTOMATIC, UNALIGNED, STRING (9) , BIT 

BASED ( P) „ UNALIGNED, STRUCTURE 
15,17 

IN M, BASED (P), ALIGNED, POINTER 
19 

AUTOMATIC, ALIGNED, POINTER 
15,16,19 

AUTOMATIC. ALIGNED, POINTER 
17,18,19,20 

ENTRY, DECIMAL* FLOAT ( SINGLE) 

AUTOMATIC, ALIGNED, DECIMAL, FLOAT (SINGLE) 
21,22 

{ * ) AUTOMATIC, ALIGNED, DECIMAL, FLOAT ( SINGLE) 

FILE, EXTERNAL 
16,18 

FILE,, EXTERNAL 
20 

IN M, BASED ( P) , ALIGNED, DECIMAL, FLOAT (SINGLE) 
16,18,20 

( * ) CONTROLLED, ALIGNED, DECIMAL, FLOAT (SINGLE) 
22 

AUTOMATIC, ALIGNED, DECIMAL, FLOAT (SINGLE) 
7 

AUTOMATIC, ALIGNED, AREA 
15,17 

( 2 : * ) AUTOMATIC, ALIGNED, DECIMAL, FLOAT (SINGLE) 

(2:4,*) AUTOMATIC, ALIGNED, DECIMAL, FLOAT ( SINGLE) 

( * : *, 2) AUTOMATIC, ALIGNED, DECIMAL, FLOAT ( SINGLE) 



attributes FLOAT(SINGLE) and FLOAT(DOUBLE) refer to the precision 
tig-point data. These precisions are defined in Figures 32, 49, and 49.1. 



of the 



£22£®2 ^te_Length Table 



Specification of the ATR option or the 
XREF option produces an aggregate length 
table, which gives, where possible, the 
length in bytes of all major structures and 
non- structured arrays used in the program- 



Each entry in the table consists of the 
identifier of an aggregate preceded by a 
state 
of the 



ent number and followed by the length 
aggregate in bytes. 



The* statement number is the number eith- 
er of the DECLARE statement for the aggre- 
gate or, in the case of a CONTROLLED, 
non-BASED aggregate, of an ALLOCATE state- 
ment for the aggregate. An entry appears 



for every ALLOCATE statement involving a 
non-BASED aggregate since such statements 
may have the effect of changing the aggre- 
gate length during execution. Allocation 
of a BASED aggregate does not have this 
effect, and only one entry, which is that 
corresponding to the DECLARE statement, 
appears for any BASED aggregate. 

The length of an aggregate may not be 
known at compilation, either because the 
aggregate contains elements having adjusta- 
ble lengths or dimensions, or because the 
aggregate is dynamically defined. In these 
cases, the words 'ADJUSTABLE* or 'DEFINED* 
appear in the 'Length in Bytes" column. 

The entry for a COBOL mapped structure 
has the word ' (COBOL) ' appended. 
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The procedure in the foregoing attribute 
and cross reference table example produces 
the following aggregate length table. 

AGGREGATE LENGTH TABLE 



STATEMENT NO. IDENTIFIER LENGTH IN BYTES 



2 

4 

3 

8 

5 

6 

10 

7 

22 

12 

11 

14 



External Symbol Dictionary 



16 

4 

200 

200 

DEFINED 

2 

8 

ADJUSTABLE 

ADJUSTABLE 

ADJUSTABLE 

ADJUSTABLE 

ADJUSTABLE 

.sting 



If the option EXTREF is specified, all 
entries in the external symbol dictionary 
(ESD) are listed. The information appears 
under the following headings: 

SYMBOL - an eight- character field contain- 
ing the name identifying the ESD entry 

TYPE - two characters from the following 
list, to identify the particular type 
of ESD entry: 



Character 


Type 


SD 


Section Definition 


CM 


Named Common 


ER 


External Reference 


PR 


Pseudo- register 


LD 


Label Definition 



(For a detailed description of th€* 
different types of ESD entries, refer 
to the publication IBM System/3 60 



Operating System, Linka ge Editor . ) 



ID - a 4-digit hexadecimal number 
identifies the symbol 



which 



ADDR - the hexadecimal representation 
the compiled address of the symbol 



of: 



LENGTH - the length in bytes of the section 
(applicable only to SD, CM, and PR 
type entries) # expressed as a hexa- 
decimal number 

The sizes of the program and STATIC 
INTERNAL control sections are printed at 
the end of the ESD; they are also printed 
at the end of the compilation. This makes 
the sizes available even if EXTREF is not 
specified. The size of each DSA is also 
printed at the end of the compilation. 
Printing of these sizes is under the con- 
trol of the SOURCE option. 



Descript ion of Contents of E SD Listinc 



The first seven entries are in standard 
format, as shown in Figure 5. 



SYMBOL TYPE ID ADDR LENGTH 

PGMNAME SD 0001 000000 00033A 

PGMNAMEA SD 0002 000000 00005F 

IHEQINV PR 0003 000000 000004 

IHESADA ER 0004 000000 

IHESADB ER 0005 000000 

IHEQERR PR 0006 000000 000004 

IHEQTIC PR 0007 000000 000004 

L 

Figure 5. Specimen ESD Listing 
The seven entries are: 

1. Name of the program control section. 
This is the first label in the exter- 
nal procedure statement. 

2. Name of the STATIC INTERNAL control 
section. This is the same label as in 
1, (left-filled with asterisks if 
necessary) to seven characters, with 
an eighth character, A. 

3. Pseudo-register for the invocation 
count (the count of the number of 
times a block is invoked recursively) . 

4. Entry point of the library routine 
used to obtain AUTOMATIC storage for a 
PL/I block. 

5. Entry point of the library routine 
used to obtain storage for some AUTO- 
MATIC variables. 

6. Pseudo-register for the error handling 
routine. 
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7. Pseudo- register used for tasking. 



******XB 



Tlfre 



ble, 
folli 



3. 



remainder of the listing is varia- 
but the general organization is as 

Q)ws: 



Section definition for one-word con- 
trol section IHEMAIN, which contains 
the address of the principal entry 
point to the external procedure- This 
item is present only if the external 
procedure has the option MAIN. 
Section definition for the three-word 
control section IHENTRY (always 
present), which provides the linkage 
with the library at execution time. 



LD type items for all names of entry 
points to the external procedure* 
except the first, which has been used 
as the name of the program control 
section. 



A PR type entry for the display 
pseudo-register for each block in the 
compilation. The names are generated 
from the external procedure name which 
is left-filled to seven characters 
with asterisks. The eighth character 
is selected from a table of printable 
characters which are assigned to names 
in the order in which the blocks 
appear in the compilation. 



If each character in the table has 
been used once and more names are 
still required, the first character of 
the name is replaced from another 
(smaller) table and the eighth charac- 
ter recycles. The first and, if nec- 
essary, the second character of the 
name are allowed to cycle through this 
second table. 

If the first or second character over- 
written in this way was a character in 
the external procedure name (as 
opposed to an asterisk used in 
padding) , a warning message is printed 
out, since this could mean that separ- 
ate external procedures with distinct 
names could contain identical generat- 
ed names. 

Example: 

X: PROC; 
Y: PROC; 
Z: BEGIN; 
END X; 

The display pseudo- registers for X, Y, 
and Z would have the names: 



******XC 

******XD 

4. ER type entries for all library rou- 
tines and external routines called by 
the compilation. The list of names of 
library routines contains the names of 
routines which are directly called by 
the compiled code (first-level 
routines) and the names of modules 
which are called by the first-level 
routines. 

ER type entries for all library rou- 
tines not directly called by the com- 
piled code but required for successful 
compilation. 

5- SD type entries for EXTERNAL FILE 
constants and STATIC EXTERNAL varia- 
bles, except in the case of STATIC 
EXTERNAL variables without any initial 
text, which have CM type entries. 
File constants, both internal and 
external, have a pseudo-register asso- 
ciated with them, used by the library 
for addressing a dynamically allocated 
data set control block. For EXTERNAL 
FILE constants the pseudo-register 
name is the same as the file name, and 
for internal ones it is generated as 
for display pseudo-registers. 

6- PR type entries for all CONTROLLED 
variables. For external variables the 
declared name is used, and for inter- 
nal variables a name is generated as 
for the display pseudo-registers. 



STATIC__INTERNAL .Storage Map 



A STATIC INTERNAL storage map is pro- 
duced only when the compiler option LIST is 
specified. The size of this storage area 
is given at the end of the compilation. 

The first 52 bytes of the STATIC INTER- 
NAL Control Section are of a standard form 
and are not listed. They contain the 
following information: 



DC 
DC 



DC 
DC 
DC 
DC 
DC 
DC 



F'4096' 
AL4(SI.+X f 1000*) 



ALa(SI.+X*7000') 

VL4 (IHESADA) 

VL4(IHESADB) 

A(DSASUB) 

A(EPISUB) 

A(IHESAFA) 
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SI. is the address of the STATIC INTERNAL 
control section, and IHESADA, IHESADB and 
IHESAFA are library routines- DSASUB and 
EPISUB are compiler routines for getting 
and freeing DSAs. 

The remainder of STATIC is listed in the 
following form: 

1. 6-character hexadecimal offset 

2. Up to 8 bytes of hexadecimal text 

3. Comment indicating type of item to 
which the text belongs (only appears 
against first line of text for item) 

The possible comments are as follows 
(xxx indicates the presence of an 
identifier) : 

DED FOR TEMP Data Element Descriptor 
or for temporary or for a 

DED programmer's variable 

FED Format Element Descriptor 

DV..xxx Dope Vector of a STATIC 
variable 

DVD.. Dope Vector Descriptor 

D.V. SKELETON Dope Vector skeleton for an 
AUTOMATIC or CONTROLLED 
variable 



RDV. . 
A. . xxx 

ARGUMENT 
LIST 

CONSTANTS 

SYMTAB 

SYM. .xxx 

FILE. .XXX 
ON. . xxx 

ATTRIB 



Record Dope Vector 

Address of EXTERNAL control 
section or entry point, or 
of an internal label 

Argument list skeleton 



Symbol table entry 

Symbolic name of label con- 
stant or label variable 

File name 

Programmer- declared 
ON-condition 

File attributes 

STATIC variable. If the 
variable is not initial- 
ized, no text appears 
against the comment, and 
there is also no STATIC 
offset if the variable is 
an array. (This can be 
calculated from the dope 
vector if required) 



If the LINECNT specification for the 
listing is 72 or less, and the actual 
number of lines to be printed (including 
skips) exceeds the LINECNT, double-column 
format is used. If LINECNT is greater than 
72, or if the actual number of lines to be 
printed (including skips) is less than the 
LINECNT, single-column format is used. 

A sample of a STATIC INTERNAL storage 
map is given in Appendix D. 

Ob iect_Program_Li sting 



If the LIST option is 
listing of the object code 
together with its equivalent 
similar to assembler langua 
LINECNT specification for the 
or less, and the actual number 
be printed (including skips 
LINECNT, double-column format 
LINECNT is greater than 72 
actual number of lines to 
(including skips) is less than 
single-column format is used, 
the form shown below, are incl 
the programmer to identify the 
different segments of the obje 



specified, a 

is produced, 

in a form 

ge. If the 

listing is 72 

of lines to 

) exceeds the 

is used. If 

, or if tne 

be printed 

the LINECNT, 

Comments, of 

uded to help 

functions of 

ct program. 



* STATEMENT NUMBER n - identifies the start 
of the code generated for source list- 
ing statement number n 



* PROCEDURE xxx - identifies the 
the procedure labeled xxx 



start of 



* REAL ENTRY xxx - heads the initialization 

code for an entry point to a procedure 
labeled xxx 

* PROLOGUE BASE - identifies the start of 

the initialization code common to all 
entry points to that procedure 

* PROCEDURE BASE - identifies the address 

loaded into the base register for the 
procedure 

* APPARENT ENTRY xxx - identifies the point 

of entry into the procedure for the 
entry point labeled xxx 

* END PROCEDURE xxx - identifies the end of 

the procedure labeled xxx 

* BEGIN BLOCK xxx - indicates the start of 

the BEGIN block with label xxx 

* END BLOCK xxx - indicates the end of the 

BEGIN block with label xxx 

* INITIALIZATION CODE FOR xxx - indicates 

that the code following performs ini- 
tial value assignment or dope vector 
initialization for the variable xxx 
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Wherever possible, a mnemonic prefix is 
used to identify the type of operand in an 
instruction, and where applicable this is 
followed by a source program identifier. 
The following prefixes are used: 

A. . Address constant 

AE.L Apparent entry point (point in 
I the procedure to which control 
passed from the prologue) 

BLOfcK. Label created for an otherwise 

unlabeled block (followed by the 
number of the block) 

C.„ Constant (followed by a hexa- 
decimal dictionary reference) 

CL. A label generated by the 

compiler (followed by a decimal 
number identifying the label) 

DED|, . Data Element Descriptor 

DV.k Dope Vector 

DVD.. Dope Vector Descriptor 

FVDfED. . Data Element Descriptor of 
function value 

FVR.. Function value 

IC„ Invocation count p'seudo 
register 

ON.. ON- condition name 

PR. » Pseudo-register 

RDVU ., Record Definition Vector 

RSH. . Return switch 

SI. Address Of STATIC INTERNAL 
control section 

SKDjV., . Skeleton dope vector, followed 

by hexadecimal dictionary ref- 
erence 

SKPJL., . Skeleton parameter list, 

followed by hexadecimal dic- 
tionary reference 

ST.. Symbol table entry 

SYH.» Symbolic representation of a 
label 

TCSJi.o Temporary Control Area. A word 

containing the address of the 
dope vector of the specified 
temporary 

TMB?.« Temporary, followed by hexa- 
decimal dictionary reference 



TMPDV. . Temporary dope vector, followed 
by hexadecimal dictionary ref- 
erence 

VO. . Virtual origin 

WP1. Workspace, followed by decimal 

number of block which allocates 
workspace 

WP2. Workspace, followed by decimal 

number of block which allocates 
workspace 

WS1. Workspace,, followed by decimal 

number of block which allocates 
workspace 

WS2. Workspace, followed by decimal 

number of block which allocates 
workspace 

WS3. Workspace, followed by decimal 

number of block which allocates 
workspace 

A listing of the various storage areas 
is not produced, but the addresses of 
variables can be deduced from the object 
program listing. 

Example: 

A=B+10E1; in the source program pro- 
duces: 

0002CA 78 00 B 058 LE 0,B 

0002CE 7A 00 B 064 AE 0,C..08F4 

0002D2 70 00 B 060 STE 0,A 

A and B are STATIC INTERNAL variables at an 
offset of X"60' and X*58'„ respectively, 
from the start of the control section. 

A sample of an object program listing is 
given in Appendix D» The size of this 
listing is always printed at the end of the 
compilation. 

Diagnostic Messages 



Diagnostic messages are produced whenev- 
er the compiler detects an error (or possi- 
ble error) in the program and are sorted in 
order of severity. The four levels of 
severity and types of message are fully 
described in the section "Compiler 
Options. " 

Each error message is preceded by a code 
in the form IEMnnnnl, where IEM is the 
identification code for the PL/I (F) com- 
piler, and nnnn is a decimal number iden- 
tifying the message. 
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For a detailed list of the diagnostic 
messages refer to Appendix G of this publi- 
cation. 



This card appears only when the OBJNM 
option is specified. 



Time of Compil atio n 



At the end of a compilation, the time 
taken, in minutes and hundredths of 
minutes, is printed out, provided that the 
appropriate control-program timing options 
have been selected at the time of system 
generation. The time given is the time 
during which the compiler is actually in 
control. For details of these options, 
refer to 'System Requirements'. 



OBJECT MODULE OUTPUT 



Sgrialization_of _ Ob j ect Decks 



Object decks generated as a result of 
the use of the DECK option will be serial- 
ized in the following manner. 

Columns 73 to 76 will contain the first 
four characters of the first entry label of 
the external procedure. If the label has 
fewer than four characters, it will be 
left-adjusted in the field and the remain- 
der padded with blanks. 

Columns 77 to 80 will contain a four- 
digit decimal serial number. Numbering 
starts at 0001 and the increment is 1 each 
time. 



The object module is in a form suitable 
for direct input into the linkage editor- 
It is made up as follows: 

1. ESD entries for the object module. 

2. TXT and RLD entries for the compiled 
program. TXT and RLD entries are 
intermingled, although RLD entries are 
always preceded by their related text- 

3. TXT and RLD entries for the STATIC 
INTERNAL control section. 



ABNORMAL END OF COMPILATION 



If a program check occurs during a 
compilation, a diagnostic message is 
printed giving the type of interruption. 



LINKAGE EDITOR PROCESSING 



4. TXT and RLD entries for a one-word 
control section IHEMAIN, which con- 
tains the address of the principal 
entry point to the external procedure™ 
This control section is produced only 
when the external procedure has the 
MAIN option; it is used by the library 
routines IHESAPA, IHESAPC, IHETSAP and 
IHETSAO when passing control to the 
program. 

5. TXT and RLD entries for a three-word 
control section IHENTRY. This control 
section is referenced by the END card 
and contains a branch to one of the 
four library routines IHESAPA, IHE- 
SAPC, IHETSAP or IHETSAO. The last 
two routines are used for tasking. 

6. TXT and RLD entries for all STATIC 
EXTERNAL control sections and EXTERNAL 
file constant control sections. The 
sections appear in increasing order of 
ESD identification. 

7. END statement for the compilation- 
This specifies the IHENTRY control 
section as the one to be entered. 

8- NAME statement for the compilation. 



The linkage editor processes PL/I object 
modules, resolves any references to subrou- 
tines and functions, and forms a load 
module. To communicate with the linkage 
editor program, the programmer supplies an 
EXEC statement and DD statements that 
define all data sets. He may also supply 
control statements for the linkage editor. 
The program name for the linkage editor is 
IEWL. If tne linkage editor is executed as 
a job step, the parameter PGM=IEWL is used 
in the EXEC statement. 



Linkage Editor Input and Output 



The primary input to the linkage editor 
is in the form of object modules and/or 
linkage editor control statements. (A load 
module, by itself, cannot be the primary 
input.) While processing an object module, 
the linkage editor finds any references to 
functions or subroutines in the object 
module, and uses an automatic library call 
to resolve them. The automatic call 
library consists of either object modules 
and linkage editor control statements, or 
load modules, but not both. 
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Figure 6. Linkage Editor Input/Output Flow 

The programmer can specify additional 
libraries and data sets for use by the 
linkage editor; the LIBRARY card is used 
for this purpose (see the publication JIBM 
System/360_Operating System, Linkage Ed i- 
tor. ) 



The output 
always placed in 
and optional dia 
ten on either 
device or the pr 
data set is req 
to do its proces 
input/output fl 
essing. 



of the linkage editor is 
a library. Error messages 
gnostic messages are writ- 
an intermediate storage 
inter. In addition, a work 
uired by the linkage editor 
sing. Figure 6 shows the 
ow in linkage editor proc- 



Unit Names and ddnames 



The programmer communicates information 
about data sets to the linkage editor 
through DD statements identified by speci- 
fic ddnames, similar to the ddnames used by 
the compiler. The programmer must use 
these ddnames and he must meet the func- 
tions and requirements for data sets speci- 
fied in Figure 7. 

Any data sets defined by SYSLIB or 
SYSLMOD, and any additional data sets, must 
be partitioned data sets. The ddname given 
to refer to any additional libraries is not 
fixed by the linkage editor. Linkage edi- 
tor control statements are used to inform 
the linkage editor about the additional 
libraries. 

The data sets used by the linkage editor 
are assigned to the device classes listed 
in Figure 7. 



Sfigcif yiG2- Aflflitioftal Libraries 



The user can specify additional librar- 
ies by means of the linkage editor control 
statements INCLUDE and LIBRARY. These con- 
trol statements can appear in either the 
input stream or the libraries. For details 
of these statements refer to the publica- 
tion IBM_System/360 Operating System, Link- 
age Editor. 



Link-Editing__a_PL/I_Subroutine into a 
Priyate_Library 



Space can be conserved by link-editing 
PL/I subroutines into a private library 
with their external references unresolved. 
To do this, the linkage editor option NCAL 
is specified; the SYSLIB DD statement is 
then unnecessary. It is also possible to 
maintain a library of PL/I object modules. 

Either of these techniques requires con- 
siderably less disk space than link-editing 
all PL/I object modules with their external 
references resolved. 



Linkage Editor Prior ity 



If modules with the same name appear in 
the input to the linkage editor, the link- 
age editor accepts the first module which 
appears. 
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ddname 



SYSLIN 



SYSLIB 



SYSUT1 



SYSPRINT 



SYSLMOD 



(user- 
specified) 



Function 



Primary input data, normally the 
output of the compiler 



Automatic call library (usually 
the PL/I Library) 



Work data set 



Diagnostic messages 



Output for load module 



Additional libraries and data sets 



Possible 
Device classes 



SYSSQ, or the input 
stream device ( specified! 
by DD *) 



SYSDA 



H 



SYSDA 



SYSSQ, or SYSOUT device 



SYSDA 



■+- 



SYSDA 



Figure 7. Linkage Editor ddnames 
Overlaying of PL/I Programs 



In order to overlay PL/I programs, the 
user must have some knowledge of the con- 
trol sections produced by the compiler. 
The following control sections are produced 
for each external procedure: 



One control section containing the exe- 
cutable portion of the program and all 
constants. 



One control section 

INTERNAL data. 



containing STATIC 



One control section for each STATIC 
EXTERNAL item or EXTERNAL file name. 
(This is a named common control section 
only for a non-string scalar variable 
declared without the INITIAL 
attribute. ) 

One control section IHEMAIN (only if 
OPTIONS (MAIN) is specified for the 
procedure) . 

One control section IHENTRY. 

There is a linkage editor requirement that 
each segment of an overlay structure con- 
sists of one or more complete control 
sections. No control section can be split 
between different segments. 

The input to the linkage editor must 
contain all external procedures required in 
the overlay structure, together with the 
linkage-editor control cards describing the 
required structure. The external proce- 
dures may be in the form of: 

1. Object modules in the input stream 



2. Object and load modules in a library. 
These modules are called by means of 
the linkage-editor INCLUDE statement. 



For 
facili 
S ystem 
given 
struct 
produc 
proced 
use ca 
also u 



a full description of the overlay 

ties, see IBM System/360 Operating 

: Linkage Editor^ The two examples 

below show how the simple overlay 
ure illustrated in the diagram can be 
ed from each of the forms of external 
ure described above. Both examples 
taloged procedures; the first one 
ses batched compilation methods. 



+ 
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Example l^i. Object Modules _ in t he In put 

Stream: The cataloged procedure PL1LFCLG is 
used, with two additional DD statements for 
SYSIN in the compilation and link-edit job 
steps. 



//jobname JOB 
//stepname EXEC 

//PL1L. SYSIN DD 



etc. 

PL1LFCLG, 

PARM.LKED= , OVLY* 



A:PROC OPTIONS (MAIN) ; ... END A; 

* PROCESS 

B : PROC ; END B ; 

* PROCESS... 
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C:PROC; END C; 

* PROCESS 

D:PROC; END D; 

* PROCESS 

E:PROC; END E; 

* PROCESS 

F : PROC ; END F ; 

/* 

//LKED.SYSIN DD * 

INSERT A 

OVERLAY X 

INSERT B 

INSERT C 

OVERLAY Y 

INSERT D 

OVERLAY Y 

INSERT E 

OVERLAY X 

INSERT F 
/* 

Note that the DD statement LKED.SYSIN 
allows data in the input stream to be 
concatenated with the object file. 

Example_2._ Object ^and_ Load Modules in a 

Library: The cataloged procedure PL1LFCL is 
used to compile source modules in a library 
LIB.S and to use the object modules from 
this as input to the link-edit step. The 
load modules produced are placed in a 
library of load modules, LIB.L. Both LIB.S 
and LIB.L are cataloged data sets. Each 
external procedure requires: 



LKED.SYSLMOD DD statement overrides the DD 
statement with the same ddname in the 
cataloged procedure. The other DD state- 
ments are additions to those in the cata- 
loged procedure. 



//stepname EXEC 
//PL1L.SYSIN DD 
//LKED.SYSLMOD DD 



PL1 LFCL, PARM. LKED= 
f XREF,LIST, NCAL' 
DSNAME=LIB. S (member) 
DISP=SHR 

DSNAME=LIB. L(member) 
DISP=OLD 



To create an overlay structure from modules 
in LIB.L, the cataloged procedure PL1LFLG 
is used witn the INCLUDE statement: 

//stepname EXEC PL1LFLG,PARM. LKED= 

OVLY 
//LKED.PRIVLIB DD DSNAME=LIB. L, 

DISP=SHR 
//LKED.SYSIN DD * 

INCLUDE PRIVLIB(A, B,C,D,E,F) 

INSERT A 

OVERLAY X 

INSERT B 

INSERT C 

OVERLAY Y 

INSERT D 

OVERLAY Y 

INSERT E 

OVERLAY X 

INSERT F 

ENTRY IHENTRY 
/* 

Use of the NCAL option (see below) ensures 
that only those modules required are placed 
in the load module library. The 



The basis of the 
all object and loa 
input stream befo 
statement. All cont 
fore placed in th 
explicitly moved t 
INSERT statement, 
moves into the appro 
only the control se 
table code. 



above method is that 
d modules appear in the 
re the first OVERLAY 
rol sections are there- 
e root segment until 
o another segment by an 
Each INSERT statement 
priate overlay segment, 
ction containing execu- 



Since all modules required from the PL/I 
library are obtained using the automatic 
library call procedure to resolve external 
references, all library modules and data 
are in the root segment, where they are 
available to all other segments. This is 
basically necessary, since PL/I does not 
support exclusive calls, i.e., calls 
between segments which do not lie on a 
single path. For example, in the above 
structure, procedures in the segment con- 
taining D could call procedures in the 
segments containing A, 3, C, and D, but not 
in the segments containing E or F. Proce- 
dures in the segments containing B and C 
could call procedures in the segments con- 
taining A, B, C, D and E, but not in the 
segment containing F- A procedure in, say, 
the segment containing B may not call a 
procedure in the segment containing A which 
in turn calls a procedure in the segment 
containing F. 

However, certain modules may not be 
required by all segments, in which case 
they can be moved out into a lower segment. 
The method of doing this is to compile the 
procedures using the compiler option EXTREF 
and then to examine the lists of external 
references produced. For example, if in 
the above structure a module IHExxx is 
called only by the segment containing E, it 
may be moved into that segment by a control 
statement of the form INSERT IHExxx immedi- 
ately following the statement INSERT E. 
Similarly, if module IHEyyy is called only 
by the segments containing D and E it may 
be moved into the segment containing B or 
C. Any module called by both the segment 
containing F and any one or more of the 
segments containing B, C, D, and E must 
remain in the root segment. 

Similarly, data control sections may be 
moved from the root structure to segments 
lower in the structure. For example: 

1. To move the STATIC INTERNAL control 
section for procedure F into the seg- 
ment containing F, the statement 
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INSERT F must 
INSERT ******FA. 



be 



followed 



by 



2. To move the STATIC EXTERNAL control 
section PQR (which is referenced by B 
and c only) into the segment contain- 
ing B and C, the statement INSERT C 
must be followed by INSERT PQR. 

Values assigned to these STATIC data items 
are not saved when the segment is overlaid; 
when the segment is reloaded the original 
values are restored. STATIC data should 
therefore be left in the root segment 
unless it consists of: 

1. Values set by the INITIAL attribute, 
and then unchanged (that is., 
read-only) 

2. Values that need not be retained 
between different loadings of the seg- 
ment. 

An alternative method of producing an 
overlay structure is to obtain object decks 
and intermingle these with OVERLAY cards. 
This method requires much more careful 
handling. STATIC INTERNAL control sections 
must be moved up into the root segment, 
unless they are read-only. Named common 
control sections (which are produced only 
for non-initialized, non-string EXTERNAL 
scalar variables) are automatically moved 
up so that they are accessible to all 
segments requiring them, but all other 
EXTERNAL items will need to be moved up by 
the use of INSERT statements. 

Further information on the use of over- 
lay structures can be obtained from the 
publication IBM_ Sys tem /360 Operating Sys- 
tem, Linkage Editor. 



Other i Linkage i _ - Editor_Fasiliti es 



In addition to those already discussed, 
other linkage editor control statements are 
available: 

1. NAME statement: Specifies the name of 
the load module created from the 
preceding input modules. 

2. ALIAS statement: Specifies alternative 
names for the load module and can also 
specify alternative entry points. 

3. CHAN3E statement: Changes a control 
section name, an entry name, or an 
external reference- 

4. REPLACE statement: Deletes a control 
section, an entry name, or an external 
reference; or deletes a control sec- 



tion to be replaced by another; or 
changes an entry name or an external 
reference. 

For a detailed description of these 
facilities, see the publication I EM 
S y stem/360_ Operating System, Linkage Edi- 
tor. 



OPTIONS FOR LINKAGE EDITOR PROCESSING 



The linkage editor options can be speci- 
fied in the EXEC statement. The options 
that are most applicable to the PL/I pro- 
grammer are: 

PARM= * LIST, MAP | XREF, LET | XCAL, NCAL, OVLY ' 

LIST - the LIST option specifies that all 
control statements processed by the 
linkage editor are listed in card- 
image format on the diagnostic output 
data set. 

MAP or XREF - the MAP option tells the 
linkage editor to produce a map of the 
load module; this map indicates the 
relative location and length of 
control sections. If XREF is speci- 
fied, a map of the load module is 
produced and a cross reference list 
indicating all external references in 
each control section is generated. If 
neither MAP nor XREF is specified, 
neither the map nor the cross ref- 
erence listing is generated. 

LET or XCAL - the LET option specifies that 
the linkage editor should mark the 
load module ready for execution even 
though certain error or abnormal con- 
ditions were found during linkage 
editing. (It should be noted that, 
because of the selective loading tech- 
niques, certain external references to 
library modules may not be resolved.) 
The XCAL option marks the load module 
executable even though improper 
branches were made between control 
sections; this occurs only if the 
OVERLAY feature of the linkage editor 
is being used. 

NCAL - the NCAL option informs the Linkage 
Editor that no external references are 
to be resolved by the automatic 
library call mechanism. The subpro- 
grams in the library are not inserted 
in the load module. However, the load 
module is marked executable. 

Other options can also be specified for 
the linkage editor. For a detailed des- 
cription of all linkage editor options, see 
the publication IBM System/3 60 Opera tin g 
System, Linkage Editor. 
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JOB CONTROL PROCEDURE FOR LINKAGE EDITOR 



An example of a linkage editor procedure 
that handles the object program deck from 
the PL/I (F) compiler is given below. 

//JOB2 JOB 345,JOHNSMITH, 
MSGLEVEL=1 

//LINK EXEC PGM=IEWL # 

PARM='XREF, LIST 1 

//SYSPRINT DD SYSOUT=A 

//SYSLIB DD DSNAME=SYS1.PL1LIB, 
DISP=SHR 

//SYSUT1 DD UNIT=SYSDA, 

SPACE=(102U # (200,20)) 

//SYSLMOD DD DSNAME=PRIVATE ( PROGRAM) , 
DISP=OLD 

//SYSLIN DD * 

(Object program deck) 

/* 



If the module is in an overlay struc- 
ture, the control sections are arranged by 
segment in the order in which they were 
specified. 

Each control section that is included 
from a library during automatic library 
call is indicated by an asterisk. 

After the control sections, the module 
map shows the contents of the pseudo- 
register vector (PRV). 

At the end of the module map is: 

1. The relative address of the 
instruction with which processing of 
the module begins. 

2. The total length of the module in 
bytes 

3. The total length of the pseudo- 
register vector. 

In the case of an overlay load module, 
the length is that of the longest path. 
The addresses shown in the module map are 
those assigned by the linkage editor prior 
to loading for execution. 



LINKAGE EDITOR OUTPUT 



Cross Reference Table 



The linkage editor produces a map of the 
load module if the MAP option is specified, 
or a cross reference list and a map if the 
XREF option is specified. The linkage 
editor also produces diagnostic messages, 
which are fully described in the publica- 
tion IBM System/36 Operatin g System, Lin k- 
^2®_Editor. 



Size of Load Module 



The size of the load module produced by 
the linkage editor must not exceed 512K 
bytes. Programs producing a load module 
larger than this should be segmented. 



Module Map 



The cross reference table consists of a 
module map and a list of cross references 
for each control section. Each address 
constant is listed with its assigned 
location, the symbol referred to, and the 
name of the control section in which the 
symbol is defined. For overlay programs, 
this information is provided for each seg- 
ment. In addition, the number of the 
segment in which the symbol is defined is 
provided. 

If the program is in an overlay struc- 
ture, a list of cross references is provid- 
ed for each segment. 

If a symbol is unresolved after process- 
ing by the linkage editor, it is identified 
by $UNRESOLVED in the list. However, if an 
unresolved symbol is marked by the never- 
call (NCAL) function, it is identified by 
$NEVER-CALL. 



The module map shows all control sec- 
tions in the output module and all entry 
names in each control section. The control 
sections are arranged in ascending order 
according to their assigned origins- All 
entry names are listed below the control 
section in which they are defined. 



Information indicating the options and 
attributes specified is provided with each 
load module produced. 
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There are, in addition, a number of 
disposition messages to indicate the 
conditions of the load module in the output 
module library. For full details see the 
publication IBM Sy s t em/ 3 6 Operating Sys - 
tem^ Linkage Editor . 



DIAGNOSTIC MESSAGES 



DCB Paramet er 



The data control block (DCB) parameter 
in the DD statement is used to specify 
record formats, record lengths, blocking, 
and other information regarding the uses of 
the data set. It may be used for data sets 
when a load module is executed. For infor- 
mation concerning the subparameters in the 
DCB used by PL/I load modules and assump- 
tions made if the DCB parameter is not 
specified, see the section "Managing Data." 



Certain conditions that are present when 
a module is being processed can cause an 
error or warning message to be printed. An 
error or warning message consists of a 
message code and a message text. 

The message text contains combinations 
of the following: 

The code IEW, which identifies linkage 
editor messages 

The message classification (either 
error or warning) 

Cause of the error 

Identification of the symbol, segment 
number (when in overlay), or member in 

error 

Instructions to the programmer 

Actions taken by the linkage editor 

If an error is encountered during proc- 
essing, the message code for that error is 
printed with the applicable symbol, sym- 
bols, or record in error. After processing 
has been completed, the diagnostic message 
associated with that message code is print- 
ed. 



LOAD MODULE EXECUTION 



JOB CONTROL PROCEDURE FOR COMPILING, 
PROCESSING BY LINKAGE EDITOR, AND EXECUTING 



An example follows of the card deck 
required for compiling, processing by the 
linkage editor, and executing a PL/I pro- 
gram: 

//CLG JOB 789, JOHNSMITH, 
MSGLEVEL=1 

//STEP1 EXEC PGM=IEMAA, 

PARM=' Options' 

//SYSPRINT DD SYSOUT=A 

//SYSLIN DD DSNAME=£€LOADSET, 
UNIT=SYSDA, 
DISP=(MOD, PASS) , 
SPACE=(80, (250, 100)) 

//SYSUT1 DD UNIT=SYSDA, 

SPACE=(102U, (60,60)) , 
SEP= (SYSPRINT, 
SYSLIN) 

//SYSIN DD * 

(Source Program Deck) 

/* 

//LKED EXEC PGM=IEWL 

//SYSPRINT DD SYSOUT=A 



Execution Device Specification 



When the system is generated, device 
names are assigned by the operating system 
and the installation, and the programmer 
chooses devices by specifying either the 
installation or operating system names. 

The programmer can choose which device 
to use for his data sets and can specify 
the name of the device or class of devices 
in the UNIT parameter of the DD statement. 



//SYSLMOD DD DSNAME=SSLOADSET, 

SPACE=(1024, (50,20,1)), 
DISP=( NEW, PASS), 
UNIT=SYSDA 

//SYSLIB DD DSNAME=SYS1.PL1LIB, 
DISP=SHR 

//SYSUT1 DD UNIT=SYSDA, 

SEP=(SYSLMOD, SYSLIB) , 
SPACE=(1024, (200,20)) 

//SYSLIN DD DSNAME=*. STEP 1. SYSLIN, 
DISP=( OLD, DELETE) 
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//STEP 3 EXEC PGM-+.LKED.SYSLMOD, 
COND=( (5,LT,STEP1) , 
(5,LT, LKED)) 

//SYSPRINT DD SYSOUT=A 

//SYSIN DD * 

(Data) 

/* 

OBJECT PROGRAM OUTPUT 
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Execution of the PL/I procedure shown in 
Figure 8 will produce the object time 
output in Figure 9. 



Record- Or iented_Outp_ut 



This form of output is concerned with 
writing complete records, instead of one 
item at a time. One record is the contents 
of one variable. The external data rep- 
resentation is the same as the internal 
form; there is no data conversion. RECORD- 
oriented output is described in 'Managing 
Data' . 



Stream- Or iented._Output 

Figure 9 illustrates various forms of 
external data representation as produced by 
PUT statements employing the EDIT, LIST, 
and DATA keywords. It should be noted that 
the output of data fields to PRINT files by 
list- or data- directed techniques will 
automatically be aligned upon preset tab 
positions, the initial data field of a line 
being aligned upon the left margin, posi- 

OUTPUT: PROCEDURE OPTIONS (MAIN) ; 

DCL A FIXED, 
B FLOAT, 

C FLOAT COMPLEX, 
D BIT (10), 
E CHAR (10), 
ARRAY (2,2); 

A,B = 12345; 
C = A+12345I; 
D = * 11001 11 'B; 

E = 'ABC *DEFG' ; 

DO I = 1 TO 2; DO J = 1 TO 2 ; 
ARRAY(I,J) = I+J; 
END; END; 

PUT PAGE LIST ('EXAMPLES OF LIST/DATA/EDIT OUTPUT'); 

LIST: PUT SKIP(2) LISTCLIST DIRECTED EXAMPLES:*); 

PUT SKIPd) LIST(A,B,C,D,E) ; 

DATA: PUT SKIP (2) LIST ('DATA DIRECTED EXAMPLES:'); 

PUT SKIPd) DATA(A,B,C,D,E) ; 
PUT SKIP DATA(ARRAY) ; 

EDIT: PUT SKIP(2) LIST ('EDIT DIRECTED EXAMPLES:'); 

PUT SKIPd) EDIT(A,B,C,D,E) 

(F(10,2),EdO,0,5),C(E(10,0,5)),X(5),2A) ; 

END; 

Figure 8. Example of PL/I Procedure Using STREAM I/O 
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1.23450E+04+1.23450E+04I 



1 100111000 r B 



EXAMPLES OF LIST/DATA/EDIT OUTPUT 

LIST DIRECTED EXAMPLES: 

12345 1.23450E+04 

ABC'DEFG 

DATA DIRECTED EXAMPLES: 

E=' ABC'DEFG •; 

ARRAY(1 f 1)= 2.00000E+00 ARRAy(1,2) = 3. 000000E+00 ARRAY<2 # 1)= 3.000000E+00 ARRAy(2,2)= 4.00000E+00; 

EDIT DIRECTED EXAMPLES: 

12345.00 12345E+00 12345E+00 12345E+00 1 1001 1 1000ABC DEFG 

Figure 9. Example of LIST/DATA/EDIT Output to PRINT Files using the PUT Statement 
Object Time Diagnostic Me ssages Operator Messages 



When an exceptional or error condition 
arises during the execution of a PL/I 
program, a message of the form 
IHEnnnI - text is printed. The first three 
characters IHE are standard and indicate a 
PL/I library message. The message number 
is specified by the digits nnn. The final 
character, I, is a system standard action 
code, indicating an informative message for 
the programmer. These messages are printed 
on an output data set which is specified by 
the SYSPRINT DD statement provided by the 
programmer. If the SYSPRINT DD statement 
is absent, the object time messages appear 
on the operator* s console, except for the 
ON CHECK system action messages and the 
COPY option output, which are not printed 
at all in this case. The text of the 
message, which may consist of any number of 
characters, is separated from the I by one 
blank. PL/I input/output messages include 
the word FILE and the file-name at the 
start of the message, to assist in the 
identification of the file causing the 
error. 



If the statement number compiler option 
has been specified, each message will also 
contain IN STATEMENT nnnnn prior to AT 
location message. nnnnn gives the number 
of the statement in which the condition 
occurred. 



Messages are generated for two reasons: 

1. An error occurred for which no 
specific ON condition exists in PL/I. 
A diagnostic message is printed out 
and the ERROR condition is raised. 

2. An ON condition is raised, by compiled 
code or by the library, and the action 
reguired is system action, for which 
the language specifies COMMENT as part 
of the necessary action. 

The complete list of object time diag- 
nostic messages appears in Appendix G of 
this publication. 



A message is transmitted to the operator 
when the DISPLAY statement is specified in 
the PL/I program. The two forms in which 
an operator message may appear are as 
follows: 

1. Without the REPLY option - the message 
is in the form of a character string 
specified by the programmer. 

2. With REPLY option - the message is in 
the form of a character string speci- 
fied by the programmer, but it is 
preceded by a two-digit code generated 
by the operating system. The operator 
must use this code as the prefix to 
nis reply message. 



SYSTEM OUTPUT 



Diagnostic messages and completion codes 
are issued by the operating system, indi- 
cating coding errors found in job control 
statements and system macro instructions, 
and errors detected during processing by 
the linkage editor. The completion codes 
indicate conditions causing the control 
program to abnormally terminate execution 
of a job. For details of the system 
messages and completion codes, refer to the 

publication IBM System/360 Operating Sys- 

tem : > Messages, Compl etion Codes and Storage 
EumjDS. 



USE OF CATALOGED PROCEDURES 



To ease the work of the PL/I programmer, 
IBM has supplied cataloged procedures to 
assist in the compilation, linkage editor 
processing, and execution of PL/I source 
programs. The job control statements need- 
ed to invoke the procedures, and the deck 
structures used with the procedures, are 
described in the following paragraphs. 
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In the examples given in this section, 
the operand is specified as: 

PROC = cataloged procedure name 

but the ' PROC=' can be omitted if required. 

It is recommended that each installation 
review the procedures supplied by IBM, and 
modify them to obtain more efficient use of 
the devices available, to allow for instal- 
lation conventions, to accommodate local 
changes to the compiler options, to alter 
the REGION fields to correspond to availa- 
ble storage, or to set block sizes for 
output data sets. 



Compilation with peck Output 



The cataloged procedure, PL1LFC, con- 
sists of the control statements shown in 
Figure 59 in Appendix E. 

Invoking the PL1LFC Cataloged Procedure! 
Figure 1 1 shows control statements that 
might be used to invoke the procedure. 



//COMPLM JOB PL1PR0G,MSGLEVEL=1 

//STEP1 EXEC PR0C=PL1LFC 

//PL1L.SYSIN DD * 

(Source Program Deck) 

/* 

Figure 11. Invoking the Cataloged Proce- 
dure PL1LFC 



The cataloged procedure for compilation 
with deck output is PL1DFC. The programmer 
invokes this procedure by using an EXEC 
statement with the first parameter contain- 
ing the name PL1DFC. An example is shown 
as follows: 

//STEP1 EXEC PR0C=PL1DFC 

The cataloged procedure, PL1DFC, con- 
sists of the control statements shown in 
Figure 43 in Appendix E. 

Invoking the PLJDFC Catal oged Procedure : 

Figure 10 shows control statements that 
might be used to invoke the procedure. 



//COMPIL JOB PL1PR0G,MSGLEVEL=1 

//STEP1 EXEC PROC=PL1DFC 

//PL1D.SYSIN DD * 

(Source Program) 

/* 

Figure 10. Invoking the Cataloged Proce- 
dure PL1DFC 

Compilation with Obj ect, M odule Output 



Compilation and Link-Editing 



The cataloged procedure for compiling 
and link-editing a PL/I source program is 
PL1LFCL. The programmer invokes this pro- 
cedure by using an EXEC statement with the 
first parameter containing the name 
PL1LFCL. For example: 



//STEP1 



EXEC PR0C=PL1LFCL 



The cataloged procedure for compiling 
and link-editing consists of the control 
statements shown in Figure 60 in Appendix 
E. 

Invoking the PL1LFCL Cataloged Procedure: 

Figure 12 shows the statements that might 
be used to invoke the procedure PL1LFCL. 



//JOBCLE JOB PL1PROG, MSGLEVEL=1 

//STEP1 EXEC PROC=PL1LFCL 

//PL1L.SYSIN DD * 

(Source Program) 

/* 

Figure 12. Invoking the Cataloged Proce- 
dure PL1LFCL 



The cataloged procedure for compilation 
with object module output is PL1LFC. The 
programmer invokes this procedure by using 
an EXEC statement with the first parameter 
containing the name PL1LFC. An example is 
shown as follows: 



//STEP1 



EXEC PR0C=PL1LFC 



Compilati on, Link- Editing and Ex ecution 



Another cataloged procedure, PL1LFCLG, 
passes a source program through three pro- 
cedure steps - compilation, link-editing, 
and execution. The cataloged procedure is 
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invoked by specifying the name PL1LFCLG as 
the first parameter in an EXEC statement. 
For example: 

//STEP1 EXEC PR0C=PL1LFCLG, 

REGION. G0=XXXXK 

where xxxxK represents the REGION specifi- 
cation (leading zeros need not be 
specified) . 

Figure 61 in Appendix E shows the state- 
ments that make up the cataloged procedure 
PL1LFCLG. 

Invoking the PL1LFCLG. Catalog ed Procedur e: 
Figure 13 shows statements that might be 
used to invoke the procedure PL1LFCLG. 



//COMPLE3 JOB PL 1 PROG, MSGLEVEL=1 J 

i 
//STEP1 EXEC PROC=PL1LFCLG, 
REGION. GO=XXXXK 

//PLlL.SiTSIN DD * 

(Source Program) 

/* 

Figure 13. Invoking the Cataloged Proce- 
dure PL1LFCLG 

Link-Editinq and Execution 



//STEP1 EXEC PR0C=PL1LFLG, 

REGION. G0=XXXXK 

where xxxxK represents the REGION specifi- 
cation (leading zeros need not be 
specified) . 

Figure 62 in Appendix E shows the state- 
ments that make up the cataloged procedure 
PL1LFLG. 



j nv .2Js4i?9-, •b_Jrie_ iii ,PL2LFLG_Cataloged__Procedure: 
Figure 14 shows statements that might be 
used to invoke the procedure PL1LFLG. 



//jobname JOB PL1PROG, MSGLEVEL=1 



//STEP1 



EXEC PR0C=PL1LFLG, 

REGION. G0=XXXXK 



//LKED.SYSIN DD parameters defining 
the input data set 
to the Linkage 

Editor 

Figure 14. Invoking the Cataloged Proce- 
dure PL1LFLG 



Link- Editi ng and Execution^ of _ Several 
Separate Compilations 



The cataloged procedure for link- editing 
and executing a previously compiled PL/I 
program is PL1LFLG. This procedure is 
invoked, by an EXEC statement with the first 
parameter containing the name PL1LFLG. For 
example: 



Several programs can be separately com- 
piled, then link-edited together and exe- 
cuted as one program. This is done by 
using the cataloged procedure PL1LFC for 
each individual compilation except the 
last, then using the procedure PL1LFCLG for 
the last, all within the same job. 
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MANAGING DATA 



FILES AND DATA SETS 



The term "file," as defined for PL/I, 
may be equated for the most part with the 
System/360 operating system term "data 
set. " However, there is not necessarily a 
one-to-one correspondence between the num- 
ber of files being used within a program 
and the number of data sets being used. 
That is, a program may declare two files, 
ALPHA and BETA, both of which are concur- 
rently open and both referring to the same 
data set. This may be effected in two 
ways : 



1. When opened, both files ALPHA and BETA 
use the same TITLE option value, i.e., 
they refer to the same DD statement. 

2. Two DD statements are used, one for 
each file, and each nominates the same 
data set. 

From the above, it may be seen that the 
PL/I program does not itself nominate data 
sets directly. The TITLE option of the 
OPEN statement is employed to specify the 
name (ddname) of the DD statement to be 
associated with a given file; in turn, the 
DD statement specifies its associated data 
set (dsname). Should the TITLE option be 
omitted from the OPEN statement* or should 
the file be opened implicitly by another 
I/O statement, a default TITLE is obtained 
from the file identifier; the initial eight 
characters, padded with blanks if neces- 
sary, are used- 

If two or more files are assigned to the 
same data set or SYSOUT class (via differ- 
ent DD statements) and are simultaneously 
open for sequential output, then, if the 
PCP or MFT system is being used, the 
records in the files will be intermixed or 
the job will be abnormally terminated. If 
MVT is being used, the records will remain 
separate. This practice is extremely dan- 
gerous and is not recommended. 

There are three data set organizations 
which are supported by PL/I object pro- 
grams. Specification of data set organiza- 
tion is made by means of an option within 
the ENVIRONMENT attribute, which is dis- 
cussed further in Appendix B. 

The organization of a data set deter- 
mines the manner in which data is stored 
within the data set and the permitted 
techniques of accessing it- The PL/I 



Oper- 



organizations used in the System/36 
ating System are: 

CONSECUTIVE 

INDEXED 



REGIONAL 

CONSECUTIVE organization permits only 
sequential access, while REGIONAL and 
INDEXED organization permit both direct and 
sequential access. 

The permitted combinations of data set 
organization, PL/I statements, access meth- 
ods* etc. are detailed in Figures 15 # 16, 
and 17. 



CONSECUTIVE ORGANIZATION 



In CONSECUTIVE 
set consists of re 
within the data set 
the order in whic 
added. Such a data 
keys; records may 
sequential order. D 
SECUTIVE data sets i 
card readers/punches 
devices, and paper 
for UPDATE files, on 
ces may be used. 



organization, the data 
cords whose placement 
is determined solely by 
h they were initially 
set does not employ 
be retrieved only in 
evice support for CON- 
ncludes magnetic tapes, 
, direct access storage 
tape readers. However, 
ly direct access devi- 



Both STREAM and RECORD I/O facilities 
may employ data sets of this organization. 
STREAM I/O is limited to this organization. 

The facility for reading BACKWARDS is 
available only for files with records in 
F,FB, FBS, or U format on 9-track magnetic 
tapes, or 7-track magnetic tapes recorded 
without the use of the data converter. If 
the data converter is used, only string 
records should be read BACKWARDS (Record 
formats are described later in this chap- 
ter. ) 



INDEXED ORGANIZATION 



In INDEXED organization, the data set 
consists of keyed records whose placement 
within the data set is determined by the 
value of the key. Since a key is associat- 
ed with each record, direct retrieval, 
replacement, addition, or deletion of 
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r t 

State- 
ment 



T 1 

Record 
Format 



Organi- 
zation 



Access 



File Declaration 



Mode 



Options 



Data 
Mgmt. 



CONSEC- 
UTIVE 



SEQUEN- 
TIAL 



[ENV 

(CONSECU- 
TIVE) 3 



[BUFFERED] 
[BACKWARDS] *- 



INPUT 



READ 



[INTO | IGNORE | 
SET] 



OUTPUT j- 



WRITE 
LOCATE 



FROM 



[SET] 



QSAM 



[BUFFERED] 



READ 



[INTO | IGNORE | 
SET] 



F|FB|FBS 



U|V| VB 
VS | VBS 



UPDATE 2 J- 



REWRITE 



[FROM] 



UNBUFFERED 
[BACKWARDS] fl 



INPUT 



READ 



+- 



[INTO | IGNORE] 
[EVENT] 



OUTPUT 



UNBUFFERED 



WRITE 
READ 



FROM [EVENT] 



BSAM 



[INTO | IGNORE] 
[EVENT] 



F|Uj V 



UPDATE J- + -1 

| REWRITE | FROM [EVENT] | 
X X X. 



fl BACKWARDS is available only for records of F, FB, FBS f and U format. 

2 UPDATE is not available for records of VS and VBS format. 

Note: The syntax notation used in this table is the same as that used in IBM 
Sy_st era/3 60 Ogeratinq^System , PL/I Refere nce Ma nual. 

l zzzzz.zz z z '. 

►Figure 15. CONSECUTIVE Data Set Organization and Applicable Language Features 



records is possible, as well as sequential 
access of such records. The keyed records 
of an INDEXED data set are located by means 
of several levels of indexes which are 
initially constructed when the data set is 
created. 



Keys for INDEXED data sets consist of 
character strings, 1 through 255 characters 
in length, defined by means of the DCB 
subparameter KEYLEN( described later in this 
chapter) . Should the length of a character 
string key specified in a KEY or KEYFROM 
option differ from that specified by KEY- 
LEN, it is truncated or padded with blanks 
to KEYLEN. 



Device support for INDEXED data sets is 
restricted to direct access storage devi- 
ces. 

Basically, there are three areas within 
an INDEXED data set: 

Prime data area 
Overflow area 
Index area 

The prime data area is the area into 
which records are inserted during creation. 



Subsequent addition of records,, when using 
DIRECT access for UPDATE, may cause records 
to be moved from the prime data area to an 
overflow area, in order to keep the indexes 
in order. Access to records in an overflow 
area is slower than to those in the prime 
data area; accordingly, the data set should 
be "reorganized" periodically (see: 
"Accessing of INDEXED Data Sets"). 



There are two types of overflow area: 

a cylinder overflow area (a certain 
number of tracks per cylinder reserved 
during creation) 



2. an independent overflow area, which 
requires special DD statement usage 
(see "Creation of INDEXED Data Sets"). 

The index area may be spread, physical- 
ly, through the space allocated to the data 
set. There are two basic index types, the 
track index and the cylinder index; a third 
type, the master index, is used if the 
cylinder index becomes too large for effi- 
cient access. 

The track index specifies the highest 
key value for each track of a given cylin- 
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Organi- 
zation 



Access 



File Declaration 



Mode 



Statement | Options 



Data 
Mgmt. 



T 1 

Record 
Format 



SEQUEN- 
TIAL 



ENV 
(INDEXED) 



INDEXED 1 !- 



DIRECT 



ENV 
(INDEXED) 



[BUFFERED] 

UNBUFFERED] 
[KEYED] 2 



INPUT 



READ 



| [INTOISET 4 * 
I [KEYTO|KEY] 
I IGNORE] 



QISAM 
(SCAN) 



[BUFFERED | 

UNBUFFERED] 
KEYED 



OUTPUT 



WRITE | FROM KEYFROM 
I 



LOCATE 1 * j [SET] KEYFROM 



QISAM 
(LOAD) 



[BUFFERED] 

UNBUFFERED] 
[KEYED] 2 



READ 



UPDATE 



j [INTO | SET 1 * 
| [KEYTO|KEY] 
I IGNORE] 



■+■ 



J— 



QISAM 
(SCAN) 



FIFB 3 



REWRITE | [FROM] 1 * 



DELETE 



[KEYED] 



INPUT 



READ 



| INTO KEY 
I [EVENT] 



READ 



| INTO KEY 
| [NOLOCK] 
[EVENT] 



[KEYED] 

[EXCLUSIVE] 



WRITE 5 | FROM KEYFROM 
I [EVENT] 



BISAM 



UPDATE)- 



REWRITE | FROM KEY 
I [EVENT] 



DELETE | KEY [EVENT] 



UNLOCK 



KEY 



1 INDEXED organization is supported only for direct access storage devices. 

2 For INDEXED SEQUENTIAL INPUT and UPDATE, the file attribute KEYED must be declared 
if the KEYTO or KEY option on the READ statement is to be used. DIRECT access 
implies KEYED. 

3 Blocked records are not supported for UNBUFFERED files. 

** Locate mode I/O operations are applicable to BUFFERED files only. 

5 WRITE is ignored if NOWRITE is specified. 

Note: The syntax notation used in this table is the same as that used in IBM 
Sy_s t e m/36_ _0p_ eratinq System , PL/I Reference Manua l . 

l Z Z 

Figure 16. INDEXED Data Set Organization and Applicable Language Features 



der; the cylinder index specifies the 
highest key value of each cylinder. The 
master index may be created (by specifi- 
cation of the NTM subparameter of the DCB 
parameter in the DD statement) when the 
cylinder index exceeds the specified number 
of tracks. Each entry in the master index 
points to a track within the cylinder 
index. Up to three levels of master index 
(addressing tracks within the next lowest 
level master index) may be created automat- 
ically. 



Records within an INDEXED data set are 
either "actual" (representing still valid 
data) or "dummy" (marked as deleted, and 
inaccessible to the user) . Dummy records 
are recognized only when both of the fol- 
lowing are present: 



The DCB subparameter OPTCD = L in the 
DD statement used to create the data 
set. 
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Organi- 
zation 



Access 



File Declaration 



Mode 



State- 
ment 



Options 



Data 
Mgmt. 



T 1 

Record 
Format 



SEQUEN- 
TIAL 



ENV 

(REGIONALd) | 
REGIONAL (2) | 
REGIONALO)) 



REGIONAL" 



DIRECT 



ENV 

(REGIONALd) 
REGIONAL (2) | 
REGIONALO)) 



[BUFFERED] 
[KEYED] 2 



INPUT 



READ 



[INTO|SET[KEY 
TO] | IGNORE] 



BSAM 2 



[buffered: 

KEYED 



OUTPUT 



WRITE 
LOCATE 



FROM KEYFROM 



[SET] KEYFROM 



BSAM 
(LOAD) 



READ 



[buffered: 

[KEYED] 2 



UPDATE j- 



[INTO] SETIKEY 
TO] | IGNORE] 



BSAM 2 



REWRITE 



[FROM] 



UNBUFFERED 
[KEYED] 2 



+- 



INPUT 



READ 



[INTOtKEYTO] 

IGNORE] 
[EVENT] 



BSAM 



UNBUFFERED 
KEYED 



OUTPUT 



WRITE 



FROM KEYFROM 
[EVENT] 



BSAM 
(LOAD) 



UNBUFFERED 
[KEYED] 2 



READ 



UPDATE 



[INTOtKEYTO] | 

IGNORE] 
[EVENT] 



BSAM 



REWRITE 



FROM [EVENT] 



INPUT 



READ 



INTO KEY 
[EVENT] 



REG ( 1 ) 
and (2) : 
F only 

REG (3) ; 
F|U|V 



KEYED 



OUTPUT 



WRITE 



FROM KEYFROM 
[EVENT] 



+- 



READ 



INTO KEY 

[EVENT] 

[NOLOCK] 



BDAM 

(BSAM; 

LOAD) 



WRITE 



[EXCLUSIVE] 
[KEYED] 



UPDATE 



FROM KEYFROM 
[EVENT] 



REWRITE 



FROM KEY 
[EVENT] 



DELETE 



KEY [EVENT] 



UNLOCK 



KEY 



1 REGIONAL organization is supported only for direct access storage devices. 

2 For REGIONAL SEQUENTIAL INPUT and UPDATE, the file attribute KEYED must be declared 
if the KEYTO option on the READ statement is to be used (DIRECT access implies 
KEYED). If the KEYED attribute is not declared, QSAM is used for REGIONALd) INPUT 
and UPDATE. 

Note: The syntax notation used in this table is the same as that used in IBM 
s y §tgff^360_Operating System PL/I Reference Manual . 

L 

Figure 17. REGIONAL Data Set Organization and Applicable Language Features 



2. A character whose value is (8)'1'B in 
the initial position of the record. 

Should either condition not apply, a given 
record is not recognized as a dummy 
(deleted) record. Should the OPTCD = L 



subparameter be employed, the user is cau- 
tioned that unless care is taken to prevent 
the unintentional presence of such an ini- 
tial character (for example, because of 
negative FIXED BINARY data), records may 
vanish from the data set- 
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REGIONAL ORGANIZATION 



There are three types of REGIONAL data 
organization: REGIONALd), REGIONAL(2), and 
REGIONALO). REGIONALd) and (2) support 
unblocked F-format records; REGIONALO) 
supports unblocked records of U, F, or 
V-f ormat. 

In all tnree REGIONAL organizations, the 
data set consists of regions numbered con- 
secutively, starting at zero. In 
REGIONALd) and (2), each region contains 
just one record. In REGIONALO), each 
region is a whole track, containing as many 
records as will fit onto the track. The 
actual number will depend upon the size of 
the records and the device characteristics. 

REGIONAL organizations support DIRECT 
access of records by directly locating the 
region in which the record is placed and 
then, if necessary, performing a sequential 
search for the specified record in the 
vicinity of the located region. REGIONAL 
organizations also support SEQUENTIAL 
access of records. 

A major advantage of REGIONAL organiza- 
tion is that it permits program control 
over the relative physical placement of 
records. Accordingly, optimization of 
record access in terms of particular appli- 
cation requirements and device capabilities 
can be obtained by judicious programming. 



it takes the form of a character string 
which is actually written in the data set 
attached to tne record, and is known as the 
£§£Q£4g£Li£gY.* Tne recorded key consists of 
the initial n characters of the source key, 
where n is the number specified in the DCB 
subparameter KEYLEN. If the source key 
specified in the KEY or KEYFROM option is 
not equal in length to the number specified 
by KEYLEN, the source key is either padded 
with blanks or truncated (on the right) 
before being written with the record as the 
recorded key or compared with existing 
recorded keys in the search for a particu- 
lar record. 

The relationship between the portion of 
the source key which represents the region 
number of the record (i„e., the last eight 
characters of the source key) and the 
portion which constitutes the recorded key 
(i.e., the first n characters, where 
KEYLEN = n) should be carefully considered. 
Some possibilities are illustrated below. 
Note that all the examples refer to 
REGI0NALC2) or (3). In REGIONALd), there 
is no recorded key, and any characters in 
the source key other than the final eight 
are ignored. 

Examp_l e_2 : 

Source key of 16 characters; KEYLEN = 8 

1 8 9 16 
r t i 

1 I I 
u i. J 



Source Keys and Recordgd_ Keys 



Two types of key are used with REGIONAL 
organizations: source keys and recorded 
keys. 

The source_ key is a character string 

specified in the KEYFROM option of a WRITE 
or LOCATE statement or in the KEY option of 
a READ, REWRITE, or DELETE statement. In 
the WRITE statement, its purpose is to 
determine whereabouts in the data set a new 
record will be written; in the READ, REW- 
RITE, or DELETE statement, its purpose is 
to identify the record which is to be read, 
rewritten, or deleted. The last eight 
characters of the source key (or all of it # 
if there are less than eight) represent the 
region number of the record. In 
REGIONALd), any additional characters in 
the source key are ignored. 

In REGIONALd), the region number alone 
is sufficient to determine the location in 
which a record will be placed and to 
identify it for retrieval. In REGIONAL(2) 
and (3) (as will be explained below), a 
further means of identification is needed; 



Characters 9 through 16 represent the 
region number; characters 1 through 8 
are used as the recorded key. 

Example 2 : 

Source key of 12 characters; KEYLEN = 8 



1 



12 



Characters 5 through 12 represent the 
region number; characters 1 through 8 
are used as the recorded key. 

Example .3: 

Source key of 8 characters; KEYLEN = 8 

1 8 



Characters 1 through 8 represent the 
region number; characters 1 through 8 
are also used as the recorded key. 
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Examp_le_42_ 

Source key of 6 characters; KEYLEN 



1 



12 
— 1 

1 
J 



the KEYTO option can only be guaranteed if 
the length of the KEYFROM value is equal to 
=12 that specified by KEYLEN. 



REGION L(1) Data Sets 



Characters 1 through 6 represent the 
region number; characters 1 through 6 
are padded on the right with blanks to 
make 12 characters, which are then used 
as the recorded key. 



Source 

KEYLEN 

1 3 
r — t 



key 
16 

10 
— i 



of 
16 



10 



characters; 



j 



Characters 3 through 10 represent the 
region number; characters 1 through 10 
are padded on the right with blanks to 
make 16 characters, which are then used 
as the recorded key. 

Example 6 : 

Source key of 16 characters; KEYLEN = 6 



1 



-T T" 

I I 
.J. A. 



16 
-1 



A REGIONALd) data set consists of 
unblocked F-format records without asso- 
ciated recorded keys. The data set is 
divided into regions each of which is large 
enough to contain just one record, hence 
each region number corresponds to a rela- 
tive record position within the data set. 
The location of a particular record can be 
determined by the source key alone. The 
final eight characters of the source key 
are the character-string representation of 
an unsigned decimal integer not exceeding 
16777215, and may contain only the charac- 
ters through 9 and blank. If more than 
eight characters are given in the KEY or 
KEYFROM option, only the last eight are 
used; otherwise all characters are used. 

If the KEYTO option specifies a 
character-string variable of more than 
eight characters, the source key value 
returned is padded at the left with blanks; 
if it has fewer than eight characters, the 
value is truncated on the left without 
raising any condition. 



REGIONAL(2) Data Sets 



Characters 9 through 16 represent the 
region number; characters 1 through 6 
are used as the recorded key. Charac- 
ters 7 and 8 are not used. 

From the above illustrations, it can be 
seen that it is optional whether the region 
number portion of the source key is includ- 
ed in the recorded key. Similarly, the KEY 
option may specify a source key longer than 
the recorded key, thereby causing a search 
for a key matching only the initial n 
characters of the source key, where n is 
defined by KEYLEN; this facilitates reading 
data sets created by other processors 
(e.g., COBOL, which has a different source 
language keying mechanism) . 

SEQUENTIAL access of REGIONAL data sets 
will retrieve records in the order in which 
they are physically located in the data 
set. The recorded key will not affect the 
sequence, but can be obtained by use of the 
KEYTO option. 

Equality between the value specified by 
the KEYFROM option and that subsequently 
assigned to a character string by means of 



A REGIONAL(2) data set contains 
unblocked F-format records with associated 
recorded keys. As in REGIONALd), the data 
set is divided into regions each of which 
will hold just one record. Unlike 
REGIONALd) however, in REGIONAL (2) organi- 
zation a particular record will not neces- 
sarily occupy the relative position speci- 
fied by the region number in the source 
key. When writing a new record in a data 
set opened for DIRECT access, the location 
in which the record will be written is 
determined as follows. A search is com- 
menced at the beginning of the track con- 
taining the region number specified by the 
source key. The record is written in the 
first available position on that track or, 
if that track is full, on a subsequent 
track. The record may, therefore, be writ- 
ten either before or after the specified 
region number, depending on the availabili- 
ty of space. The search for a vacant 
position can, however, be limited by the 
DCB subparameter LIMCT. (The use of LIMCT 
in REGIONAL(2) is described below.) Simi- 
larly, when accessing a record in a 
REGIONAL (2) data set opened for DIRECT 
access, the record is located as follows. 
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Commencing at the beginning of the track 
containing the specified region number, a 
sequential search is made for a record 
whose recorded key matches the source key 
(truncated or padded as required). Again, 
tne extent of the search can be restricted 
by the use of the DCB subparameter LIMCT. 



The DCB s 
number of regi 
tially search 
search commen 
track containi 
fied by the 
the end of the 
whose number i 



ubparameter LIMCT limits the 
ons which are to be sequen- 
ed. In REGIONAL (2), the 
ces at the beginning of the 
ng the region number speci- 
source key, and continues to 
track containing the region 
s given by: 



region number specified in source key + 
LIMCT value - 1 

Example: 

Each track of a device holds ten 
records. The final eight characters of 
the source key represent the number 17. 
LIMCT has the value 15. 

The sequential search will commence at 
the start of track 2 (since region 
number 17 is on this track) and contin- 
ue through to the end of track 4 (since 
region number 31 „ given by source key 
region number + LIMCT value - 1, is on 
track 4). 

It can be seen from the foregoing that, 
in REGIONAL ( 2) „ the nearer a record is to 
the beginning of a track, the more quickly 
can the record be accessed. 

REGIONAL (2) organization does provide a 
degree of device independence- Provided 
that access to the data set is DIRECT and 
that all keys are unique, the programmer 
does not need to modify his algorithms in 
consideration of the device type. If, 
however, a data set created or updated by 
DIRECT access is subsequently read by 
SEQUENTIAL access, then the order in which 
the records are read will vary slightly 
according to the type of device. 

The final eight characters of the source 
key are the character-string representation 
of an unsigned decimal integer not exceed- 
ing 16777215, and may contain only the 
characters through 9 and blank. If more 
than eight characters are given in the KEY 
or KEYFROM option, only the last eight are 
used as the region number; otherwise all 
characters are used. 

If the KEYTO option specifies a 
character-string variable of different 
length from that of the recorded key, the 
recorded key returned is padded with blanks 
at the right or truncated at the right; no 
condition is raised. 



but unlike 
REGIONALO) a 
on the direct- 
number in the 



REGIONALO) Data Sets 



A REGIONALO) data set may contain 
unblocked records of U,F, or V-format, with 
associated recorded keys. The data set is 
divided into regions, 
REGIONALd) and (2), in 
region is a whole track 
access device. The region 
source key thus corresponds not to a 
relative record position, but to a relative 
track on the device. The number of records 
within any region will depend on the record 
sizes and the device characteristics. 

When writing a new record in a data set 
opened for DIRECT access, the location in 
which the record will be written is deter- 
mined as follows. A search is made for an 
available position, commencing at the start 
of the track whose relative position is 
represented by the region number in the 
source key. The record will be written in 
the first available position on that track, 
or, if that track is full, on a subsequent 
track. The search can, however, be limited 
by use of the DCB subparameter LIMCT. (The 
use of LIMCT in REGIONALO) is described 
below. ) Similarly, when accessing a record 
in a REGIONALO) data set opened for DIRECT 
access, the record is located as follows. 
Commencing at the beginning of the track 
whose relative position is represented by 
the region number in the source Key, a 
sequential search is made for a record 
whose recorded key matches the source key 
(truncated or padded as required). Aqain, 
the extent of the search can be restricted 
by use of the DCB subparameter LIMCT. 

The DCB subparameter LIMCT limits tne 
number of regions which are to be sequen- 
tially searched. In REGIONALO), each 
region is a track, hence the value speci- 
fied in LIMCT quite simply specifies the 
number of tracks which are to be searched. 

The final eight characters of the source 
key are the character-string representation 
of an unsigned decimal integer not exceed- 
ing 32767, and may contain only the charac- 
ters througn 9 and blank. If more than 
eight characters are given in the KEY or 
KEYFROM option, only the last eight are 
used as the region number; otherwise all 
characters are used. 

If the KEYTO option specifies a 
character-string variable of length differ- 
ent from that of the recorded key, the 
recorded key returned is padded with blanks 
at the right or truncated at the right; no 
condition is raised. 

Note : The EVENT option should be used with 
caution when V- or U-format records are 
being added to a REGIONALO) data set. 
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Records within RE3I0NAL Data Sets 



Records within a REGIONAL data set are 
either "actual" (representing valid data) 
or "dummy" (inserted during creation or 
when actual records are deleted) . Dummy 
records vary in format according to the 
REGIONAL type and, in the case of REGIONAL 
(3), according to the record format as 
well. See also the section "Accessing of 
REGIONAL Data Sets." 

REGIONALCI) - initial character of record 
has the value (8)'1'B; the remainder 
of the record is undefined. 

RE3IONAL(2) - initial character of recorded 
key has the value (8)'1'B, the remain- 
der of the key being undefined; the 
initial character of the record is an 
internal representation of the 
sequence number of the record within a 
track, the remainder of the record 
being undefined. 

REGIONAL* 3) - if F-format records, as for 
REGIONAL (2). If U- or V- format 
records, the initial character of the 
key has the value (8) "VIS, the remain- 
der of the key being undefined. If 
V-format, the control bytes of the 
record are valid, but the remainder is 
undefined. 



personnel familiar with requirements at a 
given installation (see Appendix E) . Also, 
use of cataloged data sets will reduce the 
amount of configuration knowledge required. 



SPECIFYING DATA SETS 



Data sets in the operating system can be 
specified by parameters in the DD state- 
ment. This section describes the use of 
such DD statements. 

The DD statement provides the following 
functions : 

1. Naming of the data set (DSNAME) 

2. Extent allocation, i.e., device and 
space (UNIT, VOLUME, SPACE, LABEL) 

3. Disposition (DISP, SYSOUT) 

4. Data set attributes (DCB) 

The functions are summarized in the 
following paragraphs. For full details 

refer to the publication IBM System/3 6 

Operating System^ Job__Control Language . 



DATA SET DEFINITION 



Naming of the Data Set (DSNAME) 



Whereas the attributes of a file (which 
may be considered to be a "data set usage") 
are declared within a PL/I program, the 
attributes of its associated data set are 
specified by means of the DD statement or 
the ENVIRONMENT attribute. (For the format 
of the options available in the ENVIRONMENT 
attribute, refer to Appendix B„ ) In this 
manner a large degree of device indepen- 
dence is achieved. The DD statement per- 
mits the specification of object time 
device type, unit assignment, record for- 
mat, etc. 

Since PL/I itself does not define data 
set attributes, there are no default attri- 
butes, witn the exception of PRINT files 
which have a default of the V-format, with 
unblocked records of 129 bytes. Informa- 
tion regarding specific data sets is com- 
municated to the Operating System via DD 
statements. It is not, however, necessary 
for each programmer to understand the 
details of DD statements: in some instances 
the use of cataloged procedures will allow 
the programmer to be oblivious of the 
particular I/O device configuration. These 
cataloged procedures will be prepared by 



The DSNAME parameter allows the program- 
mer to specify the name of a newly defined 
data set or to refer to a previously 
defined data set- This parameter should oe 
supplied for all but temporary data sets. 



Note: Data set nam 
letters SYS and have 
character of the n 
Data sets with such 
temporary data sets 
for temporary data 
systems, and are del 
utility is used a 
control statement i 
VTOC, PURGE, and SYS 



es that begin witn the 

a P as the nineteenth 

ame should not be used. 

names are created for 

on PCP systems, but not 

sets on MVT or MFT 

eted when the IEHPROGM 

nd the SCRATCH utility 

s specified with the 

keywords. 



Extent Allocation (.UNIT, 

LABEL) 



VOLUME, SPACE, 



The UNIT parameter allows the programmer 
to state the type and quantity of 
input/output devices to be allocated for 
the data set. The type of unit is speci- 
fied by a symbol that refers to a collec- 
tion of one or more devices. 



The VOLUME parameter is used to specify 
the identification of the volume on which 
the data set resides. Other information 
includes instructions to the system for 
volume mounting actions. 

The SPACE parameter permits the specifi- 
cation of the type and amount of space 
required to accommodate the data set on a 
direct-access device. This space is 
obtained either from the volume designated 
in the VOLUME parameter or from the volume 
mounted on one of the devices specified in 
the UNIT parameter. 

The LABEL parameter specifies the type 
and contents of the label or labels asso- 
ciated with the data set. 



Disposition (DISP, SYSOUT) 



data set characteristics. Whereas the 
other DD statement parameters deal chiefly 
with the physical residence of a data set, 
or aid in data set identification, the DCB 
parameter may specify information required 
to process the data records themselves. 
Information supplied to the object program 
by means of the DCB parameter can only ce 
"additive" information, i.e., it may not 
override information already established 
for a data set during compilation. DCB 
subparameters which specify DCB fields 
already completed during compilation (by 
means of the file declaration or OPEN 
attributes) will be ignored. 



DCB subparameters which may be specified 
for STREAM-oriented I/O are listed in Fig- 
ure 18. The DCB subparameters which may be 
specified in the PL/I language for this 
mode of I/O are: 



The disposition (DISP) 
cates the current status of 
and what is to be done 
step is completed. Paramet 
to delete the data set, to 
set to another step within 
enter the data set name i 
or to remove the data set 
catalog. 



parameter indi- 

the data set 

with it when the 

ers are provided 

pass the data 
the same job, to 
nto the catalog, 

name from the 



RECFM 
BLKSIZE 
LRECL 
BUFNO 



DISP must be carefully specified when 
the EXCLUSIVE attribute is used. This 
attribute protects records against access 
by different tasks in the same program, 
provided tne references to a data set are 
made by means of the same file. DISP=OLD 
ensures that a data set is used by one job 
only; DISP=SHR allows a data set to be used 
by different jobs. If a data set is to be 
updated by more than one job, DISP=SHR must 
not be specified. 

The system output (SYSOUT) parameter is 
used to schedule a printing or punching 
operation for the data set described by 
this DD statement. 



Data Set Attributes (DCB) 



The DCB parameter allows the programmer, 
at execution time, to complete information 
declared for his file at the time of 
compilation via a FILE declaration or OPEN 
statement. 



File Attributes and the DD Statement 



The DCB parameter of the DD statement 
permits object-time definition of various 



The first three are specifiable by means 
of the record option of the ENVIRONMENT 
file declaration attribute (see Appendix 
B) ; the fourth is specified by means of tne 
BUFFERS option. In addition, the LINESIZE 
attribute of the OPEN statement for PRINT 
files may specify the initial three subpar- 
ameters to be established by default; see 
the section called "PRINT Files." 



DCB subparameters which may be specified 
for RECORD I/O include those available for 
STREAM I/O. Additional subparameters are 
listed in Figure 19. 

Data set information supplied within the 
PL/I program may not be overridden by DD 
statement parameters, or data set label 
information (in the instance of direcr.- 
access devices, the DSCB) . Accordingly, 
files which are to remain open to object- 
time definition of data set characteristics 
must not specify these characteristics 
within a program. (It should be noted that 
data sets which are defined by a "DD *" 
statement are supplied with full DCB sub- 
parameters by the Operating System. ) Data 
control blocks generated by the PL/I "open" 
process at object time are of a format 
which allows complete device-type indepen- 
dence when applicable. During various exe- 
cutions of a program, a file may be asso- 
ciated with a card reader, paper tape, 
magnetic tape, or a direct-access device. 
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r t- 

| Keyword | 

I- +- 

BLKSIZE 



Specifies 

Maximum, or fixed, number of bytes per 
physical record (block) 



PL/I Option 

ENV (Record) 
LINESIZE 



LRECL 



Maximum, or fixed, number of bytes per 
logical record 



ENV (Record) 
LINESIZE 



RECFM 



Record format and characteristics (usage 
of printer/punch control character) 



ENV (Record) 

LINESIZE| 

PRINT 



BUFNO 



Number of buffers for physical record 
transmission 



ENV (BUFFERS) 



:ode 



Paper tape: code in which the data was 
punched 



DEN 



Magnetic tape: tape recording density 



TRTCH 



Magnetic tape: tape recording technique 
for 7-track tapes 



MODE 



Card reader or punch: mode of operation, 
column binary or EBCDIC 



STACK 



Card reader or punch: stacker selection 



PRTSP 



Spacing of printer between each line 
(0, 1, 2, or 3) 



OPTCD 



Optional data management services and 
data set attributes 



L J.. 

Figure 18. 



DCB Subparameters for STREAM I/O 



t n 

Applicable 
Organization 



I 
Keyword | 

■+- 



Specifies 



KEYLEN | Number of characters in recorded key 



INDEXED 
REGIONAL 
(2) and (3) 



LIMCT | Maximum number of records or tracks 
to be searched 



REGIONAL 
(2) and (3) 



RKP 



Relative key position within record 



INDEXED 



NTM | Number of tracks in cylinder index 
| per master index entry 



INDEXED 



CYLOFL | Number of overflow tracks in each 
| cylinder 



INDEXED 



DSOR3 | Creation of INDEXED or 
REGIONAL data set 



INDEXED 
REGIONAL 
(1), (2), and (3) 



NCP | Number of channel programs allocated | All 
to a file 



Figure 19. Additional DCB Subparameters for RECORD 



._i 

I/O 
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The format of the DCB subparameters is 
given in the following paragraphs. Refer 
to Appendix B for the format of the ENVIR- 
ONMENT option. 



RECORD FORMAT INFORMATION 



The notation used in the format descrip- 
tions of record format is interpreted as 
follows: 

Upper case letters and numbers must be 
coded by the programmer exactly as 
shown. 

Lower case letters represent variables 
for which the programmer must substi- 
tute specific information or specific 
values. 

Items or groups of items within brack- 
ets [] are optional. They may be 
omitted at the programmer's discretion. 

A logical OR sign j indicates a choice 
of option. 



5£ c .2£3__Ty_p_es 



The PL/I programmer may create and 
access data sets which consist of one of 
the following types of record: 

Fixed-length (F-format) records 
Undefined-length (U- format) records 
Variable-length (V-format) records 

Whichever record type is used, data is 
transmitted to and from main storage, and 
written on external storage in blocks. A 
block is considered to be either the data 
between two interrecord gaps in the case of 
magnetic storage devices such as disks and 
magnetic tape, or the number of bytes which 
can be transmitted to or from a unit record 
device, such as a line printer or card 
reader, in one input/output operation. 



Fixed- Length R ecords : 
(F-format) record consis 
mined number of bytes, and 
in a block containing one 
records. The length of a 
fixed-length records is 
of the record length used 
records are specified, 
transmitted and stored as 



A fixed-length 

ts of a predeter- 

is transmitted 

or more of these 

block containing 

an exact multiple 

If unblocked 

each record is 

a separate block. 



Undefined- Length Records: An undefined- 
length (U- format) record simply consists of 
a string of bytes containing data. Each 
record is transmitted or stored as a 



separate block. The interrecord gap 
between blocks delimits undefined-length 
records when held on an external storage 
medium, such as magnetic tape or disk. 



Variable -Leng th Records : A variable- length 
(V-format) record consists of a four-byte 
control field containing the number of 
bytes in the record, including the control 
field, followed by bytes containing data. 
A variable-length record is transmitted in 
a block formed by one or more such records. 
The length of the block depends on the 
number and length of consecutive variable- 
length records which can be accommodated 
within the maximum block size specified. 
The block itself contains a four-byte 
length field to determine its actual 
length, including the control field. 



Variable-length records can also be 
specified as spanned (VS-format or 
VBS-format) records. Spanned records are 
written over block boundaries in order to 
enable maximum-length blocks to be used in 
conjunction with variable-length records, 
thereby permitting efficient use of exter- 
nal storage. A spanned record is a logical 
record which can be divided into segments 
which are written on separate consecutive 
blocks. Each segment contains a four-byte 
control field to indicate the length of the 
segment, including the control field, and a 
flag byte to designate a segment as tne 
first, intermediate, or last segment of a 
logical record which spans blocks. If a 
complete logical record does not span 
blocks, i.e., it is contained entirely 
within one block, it is designated as the 
last or only segment of the logical record. 
Spanned records are created and retrieved 
automatically, and their use in no way 
affects the programmer. Data sets contain- 
ing spanned records must be CONSECUTIVE. 
They can be opened as INPUT or OUTPUT 
files, but not as UPDATE files. 



Block Size 



BLKSIZE=nnnnn: the decimal integer speci- 
fied must not exceed 32,760, and may 
be limited by the device used, such as 
a unit record device. Blocks to con- 
tain V-format records must exceed the 
maximum record length by four bytes, 
for control purposes. Blocks to con- 
tain VS- or VBS-format records may be 
shorter than the maximum record 
length. 



Managing Data 61 



t2Hical_Record_Lenc[th 



LRECL=nnnnn: the decimal integer specified 
must not exceed 32, 760 bytes for F- 
format records, and 32,756 for V- 
format records. The LRECL 
subparameter specifies the length of 
fixed-length records, and the maximum 
length of V-format, VS- and VBS-format 
records. It is not specified for 
U-format records for which the maximum 
length is 32,760 bytes. If not speci- 
fied for the v- # VS-, or VBS-format, 
or F-format records, the BLKSIZE spec- 
ified is assumed. For VS-, VBS- or 
V-format records, a four- byte control 
field must be included in the LRECL 
quantity. An extra byte must be added 
for all record formats which include a 
printer/punch control character. This 
includes all PRINT files, which use 
ASA printer control characters. 

Note that for INDEXED data sets which 
contain blocked records, if RKP=0 the 
value of LRECL must include the number 
of bytes required for the recorded 
key. 



Record Format 

RECFM= U [T3[A|M] 

V [B] [S] [T] [A|M] 
F [B] [S] [T] [A|M] 



The record format is 
follows: 



specified as 



U: Undefined-length records 

V: Variable-length records 

F: Fixed-length records 

The additional subfields are indicated 
by the following: 

B: Blocked records 

S: (F-format records only) Stand- 
ard: no blocks of a length less 
than the specified blocksize, 
except possibly the last, are 
present in the data set 

S: (V-format records only) Spanned 
records: variable-length records 
can span maximum-length blocks. 
A spanned record is written on 
one or more consecutive blocks. 
The length of the spanned record 
can exceed the length of the 
maximum- length block. 



For variable-length VS-format 
records the maximum clock size 
must always be stated. VS- 
format records that exceed the 
maximum block size are 
segmented, and the segments are 
placed in consecutive blocks. 
Each block can contain only one 
record or segment of a record. 
For example, if a record format 
is specified as VS(80,200), an 
ENV or DCB record that includes 
180 bytes of data will appear in 
the data set as two blocks of 80 
bytes (8 control bytes and 72 
data bytes) and one block of 44 
bytes (8 control bytes and 3 6 
data bytes). 



Varying-length VBS-format 
records are similar to VS-format 
records except that they are 
blocked, that is, each block 
contains as many complete 
records or segments of records 
as it can accommodate; each 
block is substantially the same 
size, although there can be a 
variation of up to four bytes „ 
since each segment must contain 
at least one byte of data. For 
example, a block might contain 
the last segment of one record, 
one or more complete records, 
and the first segment of another 
record. 



T: Track Overflow. Track overflow 
is a feature of System/360 oper- 
ating system which can be incor- 
porated at system generation 
time; it requires the record 
overflow feature on the direct 
access storage control unit. 
Track Overflow allows a record 
to overflow from one track to 
another. It is useful in 
achieving a greater data packing 
efficiency, and allows the size 
of a record to exceed the capac- 
ity of a track. 

Notej_ Track overflow is not 
available for REGIONALO) data 
sets with U- or V-format records 
or for INDEXED data sets. 

A: ASA printer/punch control char- 
acters are present within the 
records 

M: Machine code printer/punch con- 
trol characters are present 
within the records 

The following figures illustrate the 
various record formats: 
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r 1 

| Data | 

L . J 

U-Format Record 



If the file is a PRINT file, the initial 
byte of the data portion of each logical 
record is reserved for an ASA printer 
control byte. 



r ■ — i 

| Data | 

L J 

F-Format Record 



r ■ — t 1 r 1 

| Data | Data J ] Data | 

l x . J l J 

F-Format (Blocked) Record 



Blocked records are not accepted from 
paper tape- Fixed-length records on paper 
tape have a fixed number of characters 
after translation; the number of characters 
before translation is not fixed. 



r — T — T _ 1 

]C,]C 2 ] Data | 

L X X „J 

V-Format Record 



i!se_of_the_Various_Record Formats in STREAM 
I/O 



r T T T T 1 

|C„|C 2 | Data |C 2 ] Data | 

L X X X JL J 

V- Format (Blocked) Record 



r — T 1, 

|C 2 | Data J 

L X J 



r — t — t 1 r — t — r 1 

|C fl |C 2 ] Record 1 j | C fl ] C 2 | Record | 

II! I I I I 1 I 

L X J. J L J. JL J 



r — T — T ~T r — T — T 1 

|C„ | C 2 | Record 2| | C„ j C 2 j Record 3| 

L X X -J L X X -J 

VS-Format (Spanned) Records 



r T T T T 1 

| C, | C 2 ] Record | C 2 j Record] 
I I I 1 I I .2 I 

L X X X X J 



r — t — t 1 

|C„ |C 2 | Record 2 j 

L X X J 



T T T T T 1 

|C„ |C 2 | Record | C 2 J Record] 
I I I 2 | | 3 ] 

L X X X X J 

VBS-Format (Blocked Spanned) Records 

The control field C, (four bytes) speci- 
fies the total byte count of the block 
(including C„ ) ; the field C 2 (four bytes) 
specifies, for each logical record, the 
byte count of the logical record (including 
C 2 ). In the figure depicting spanned 
(VS-format) records, the field C 2 contains 
the number of bytes including C 2 , in the 
segment of a spanned record that is written 
on a particular block. Field C 2 also 
contains a flag to indicate the relative 
position of any segment of a spanned record 
within a logical record which is written on 
one or more blocks. It designates a seg- 
ment as the first, intermediate, last, or 
only segment of a record. The flag is set 
and used automatically when this type of 
record format is specified. 



The three available record formats, 
undefined, variable-length, and fixed- 
length, must each be considered for its 
application to the features of STREAM I/O. 
The following points should be considered 
when making a choice for OUTPUT files. 



Variable* Length Records ; The variable- 
length record format is the most versatile 
of the three available formats. In order 
to prevent the output of possible 'noise' 
records, i.e., records of less than trie 
System/360 operating system standardized 
minimum length, the records for output 
files are padded to contain at least ten 
data characters. With the addition of tne 
eight bytes required for the control 
fields, this gives a total of 18 data 
characters. Accordingly, LINESIZE should 
not specify a value less than 10 (9 for 
PRINT files, because a control character is 
required) . 



Fixed- Length Records; For output files -- 
as the printing options/format items have 
the ability to truncate a record (line), 
each record is padded with blanks when the 
following record is prepared for output. 



Blocked output is not supported on unit 
record devices, where each logical record 
begins on a new card or line. For example, 
specification of recordsize=20, 
blocksize=80 for a card punch will result 
in only the first 20 columns of each card 
being punched. If these cards are then 
read in, the stream will contain 60 blank 
characters between each of the original 
records. 

Also, the length of logical records 
should not exceed the physical size of each 
unit record, as the excess characters will 
be truncated without notification. 
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Use of the Vari ous Record Formats in RECOR D 
I/O 



Data transmitted by a single RECORD I/O 
statement is always contained within a 
single record, the size of which should be 
large enough to hold the data aggregate 
being transmitted, yet small enough to 
conform to device restrictions on the 
length of records which may be transmitted. 
Determination of the record length required 
for the various formats of data aggregates 
may require the information available in 
the section "Structure Mapping" in Appendix 
C of this publication; similar calculations 
are required for determination of space 
required for array data aggregates. 

It should be noted that when a data 
aggregate is moved into a record buffer, or 
transmitted immediately from the area in 
which the data aggregate is stored, no 
"padding bytes" are added before or after 
those bytes defined by the aggregate (or 
string). The current length of a variable- 
bit string will be such as to terminate the 
string on a byte boundary. 

Another consideration affecting the 
transmission of data aggregates is the fact 
that the implementation includes locate 
mode I/O. This allows data to be processed 
in the input/output buffers. Therefore a 
programmer who is creating files to be read 
using READ statements with the SET option 
should bear in mind that: 

1. The first byte in a block read from a 
file will be aligned in the buffer on 
a doubleword boundary. 

2. If any data within any record in the 
block has an alignment requirement, 
this requirement must be preserved in 
the buffer when the record is read in. 

For all record formats, this first byte 
is, with one exception, the first byte of 
data in the first record of the block. The 
exception is for FB-format records in an 
INDEXED file where RKP=0; here the first 
byte of the key of the first record is 
aligned on the doubleword boundary. The 
following information, if present, precedes 
this double word boundary: 

1„ Keys for F-format INDEXED files or for 
REGIONAL files. 

2, Control fields for V~ and VB-format 
records. 

The user must be aware that, for the 
subsequent records in the buffer, the pre- 
sence of keys and control fields will 
affect the alignment of the data elements 
in these records. 



There are several constraints regarding 
record format in RECORD I/O which depend 
upon the data set organization and the 
manner in which it is accessed. 

CONSECUTIVE Records: V-, VB-, VS,- and 
VBS-format data sets may not be read BACK- 
WARDS. 

INDEXED Records: Only F- and FB-format 
records are available. 

REGIONALd) and (2) Records: Only F-format 
records are available. 

REGION L(3) Record s: Record formats U,F, 
and V are available, i.e., records cannot 
be blocked. 

Additionally, there are various 
overheads which apply to the use of differ- 
ent formats within different data set 
organizations. The choice between BUFFERED 
and UNBUFFERED for SEQUENTIAL files may 
depend upon the time and space overheads 
outlined, as may the choice between the 
record formats U and V for REGIONALO) data 
sets. In the following details, the term 
"hidden buffers" refers to work buffers 
allocated by the object program library to 
provide special areas for the actual trans- 
mission of records to and from the data 
set, even though the file is declared 
UNBUFFERED or DIRECT. 

UNBUFFERED access of CONSECUTIVE data 
sets employs hidden buffers if V-format 
records are used, in order to handle the 
V-format control bytes. 

An INDEXED data set always requires hid- 
den buffers in order to handle a special 
10 byte control field. 

A REGIONAL data set accessed sequential- 
ly, and declared KEYED, requires hidden 
buffers (except for REGIONALd) ) to han- 
dle both the key and the record, which 
must be transmitted to and from contigu- 
ous storage areas. 



Use of„.Sp_anned Re co rds 



The blocksize (BLKSIZE) used for spanned 
records can be selected independently of 
the record lengths likely to be encoun- 
tered. It should be chosen with regard to 
attaining efficient use of external storage 
combined with efficient use of 
processor-I/O overlap. For instance, the 
block size selected for use on a 2311 disk 
store should be the correct part of one 
track, to ensure that the entire track is 
used and that efficient processing is 
achieved. 
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§Bgnned Records and LOCATE I/O 



"When 
records, 
segments 
supplied 
pointer 



READ SET is used with spanned 
each record is built up from its 
in an additional area (buffer) 
by the PL/I library, and the 
is set to address this area; the 
record is not processed in the data manage- 
ment buffer. Similarly, with LOCATE, a 
record for output is built up in a library 
area before being passed to data management 
for segmentation and transmission. Conse- 
quently, the advantage gained by using 
locate mode is lessened if the records are 
spanned. 



Number of Buffers 



BUFNO=n; the decimal constant must be less 
than 256. 

If a file is declared BUFFERED, but 
the number of buffers is not specified 
or is specified as zero, the number is 
assumed to be 2. 



Chai ned Scheduling 



OPTCD=C 

Specifies chained scheduling, which 
improves input/output performance by 
reducing the time required to transmit 
records to and from external devices. 
If this option is specified with QSAM, 
it is recommended that at least three 
buffers are specified for the file; 
with 3SAM, the number of channel pro- 
grams should be at least three. 

If BSAM or QSAM are used, then chained 
scheduling will not be used for INPUT or 
UPDATE with U-format records. 



§2iii!^e^ojae_;£Pa£er_tap_e)_ 



CODE=I | F ] B J C | A|T|N, where the codes speci- 
fy: 

I: IBM BCD perforated tape and 
transmission code (8 tracks) 



Performance is not necessarily 
improved by specifying a large number 
of buffers. Generally, the use of 
more than two gives little improve- 
ment. In some circumstances, however, 
more may be required; for example, 
chained scheduling requires at least 
three. 



Number _Qf ..Channel Programs 



NCP=n: the decimal constant must not exceed 
99. 

Specifies the number of channel pro- 
grams allocated to the file when it is 
opened. The number of incomplete 
input/output operations may not exceed 
the number of channel programs. This 
option is available only for DIRECT 
access to INDEXED data sets or for 
UNBUFFERED SEQUENTIAL access to CONSE- 
CUTIVE or REGIONAL data sets. The 
default value assumed if the option is 
not specified is 1. 

An attempt to exceed the appropriate 
number of incomplete input/output 
operations will have one of two 
results. For UNBUFFERED SEQUENTIAL 
access to CONSECUTIVE or REGIONAL data 
sets, the ERROR condition will be 
raised. For DIRECT access to an 
INDEXED data set, the operations, will 
be queued until a channel program 
becomes available. 



F: Friden (8 tracks) 

B: Burroughs (7 tracks) 

C: NCR (8 tracks) 

A: ASCII (8 tracks) 

T: Teletype (5 tracks) 

N: No conversion (F-format records 
only) 

If no code is specified, I is assumed. 
Density_(Maqnetig Tape)_ 



DEN=0| 1 |2|3 

r t t 

| | Bytes per Inch | 

| DEN I- T -I 

J Value | 7-track | 9-track | 

j. + + 4 

I | 200 | - | 
| 1 | 556 | - | 
j 2 | 800 | 800 | 
| 3 | - | 1600 | 

L i. i. J 

The density assumed, if none is speci- 
fied, is: 

7-track 200 

9-track (one density) 800 
9-track (dual density) 1600 
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Co nversion ( Magnetic tap e - 7-track) 

TRTCH=C|E|T|ET 

C: Data conversion feature is used 

E: Even parity 

T: Translation from BCD to EBCDIC 
required 

ET: (Both E and T # above) 

This subparameter is required only for 
7-track magnetic tape data sets. 

Use of a tape recording technique 
other than TRTCH=C restricts the char- 
acter set in which data can be written 
if it is subsequently to be reread and 
result in the same bit-configuration 
in storage. 

In PL/I terms, for STREAM and RECORD 
input/output of character strings or 
pictured data, acceptable modes are 
TRTCH=C|T (with TRTCH=ET acceptable if 
characters are restricted to the 
48-character set). For RECORD 
input/output of arithmetic data, 
TRTCH=C must be used. 



after printing each line; a value of 3 
will cause 2 blank lines to appear 
between each printed line- 



This parameter is ignored if the 
record format uses ASA control charac- 
ters. 



PCS Printer - Suppress TRANSMIT 



OPTCD=U 



If a printer has the universal charac- 
ter set feature., the TRANSMIT condi- 
tion is normally raised when an inval- 
id character is passed to the printer. 
Specifying OPTCD=U suppresses the con- 
dition. Either way, a blank character 
is printed. 



Validity Check 



OPTCD=W 



Mode (Card Reader. Punch) 



W: Perform write validity check 
when writing on a direct-access 
device. 



MODE=C| E 

C: Column binary card images 
E: EBCDIC card code 

Stackin2__£Card_reader £ p_unch)_ 

STACK=1 | 2 

1 : All cards read or punched are to 
be fed into stacker pocket 1 

2: All cards read or punched are to 
be fed into stacker pocket 2. 

Stacker pocket 1 is assumed if neither 
is specified. 

Pri nt_ Spacing (Printer) 

PRTSP=0| 1 | 2 | 3 

Specifies spacing of through 3 lines 



Deleted Records 



OPTCD=L 



Specifies that records within an 
INDEXED data set are to be recognized 
as deleted if the initial character 
(byte) of the record has the value 
(8) * 1'B. 



Keys 



KEYLEN=n 



Specifies the number of characters to 
be written, or retrieved, as the 
recorded key of records in data sets 
Of the INDEXED or RESI0NAL(2) and (3) 
organizations. Note that this value 
is fixed during data set creation, and 
that all records within a data set 
will have keys of the same length, the 
maximum length being 255 characters. 
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Extended Search Limit 



LIMCT=n 



Limits the extent of the search 
through a REGI0NAL(2) or (3) data set 
beyond the region number specified in 
the source key. If LIMCT is not 
specified, the search for a particular 
record, or for space to add a new 
record, will continue from the speci- 
fied region to the end of the data 
set. 

In RE3IONAL(2) LIMCT specifies 
records, but the search will continue 
to the end of the track containing the 
record whose region number is given 
by: 

source key region no. + LIMCT - 1 

In REGIONALU), LIMCT specifies 
tracks: the number of tracks searched 
will be the number specified by LIMCT. 



Specifies the number of tracks within 
a cylinder index which are to be 
filled before a master index entry is 
to be created. It also specifies the 
number of tracks within a master index 
(of which there may be three levels), 
which, when exceeded, will cause an 
entry in the next higher master index 
level. Such a facility is advanta- 
geous for large data sets, in order to 
avoid extensive serial searches 
through large low-level indexes. The 
maximum value for n is 99. Note tftat 
the OPTCD subparameter list must 
include the "M" option in order to 
create master indexes. 



Independent Overflow Area 



OPTCD=I 



Rglatiye_Key Position 



Specifies that an independent overflow 
area is to be used and must be defined 
in a separate DD statement. 



RKP=n 



Keys for INDEXED records may be separ- 
ate from or embedded in the records. 
RKP=n specifies the position (n) of 
the first byte of the key relative to 
the beginning of the record (byte 0). 
RKP=0 implies that the key is not 
embedded. Note that n is always 1 
less than the byte number of the first 
character of the key; that is, if 
RKP=1 then the first character of the 
key is in byte 2. 

Embedded keys obviate the need for the 
KEYTO option for sequential input, but 
not the KEYFROM option for output (the 
data specified by the KEYFROM option 
may be the embedded key itself, 
however) . Unblocked records always 
have a separate key (recorded key) 
attached to the record, even when 
there is already an embedded key; such 
records will therefore require double 
the space for key information.. The 
maximum value for n is (recordsize - 
keylength) . 



Cyl ind er Overflow Area 



OPTCD=Y 

CYLOFL=n 

Specifies number of tracks within each 
cylinder to be reserved,, during crea- 
tion, for overflow records. If an 
independent overflow area is requested 
(via another DD statement), a cylinder 
overflow area need not be specified. 
The maximum number of such tracks is 
99, but the limit varies with the 
particular device: there must be at 
least one track on a given cylinder to 
hold the track index, and one to hold 
prime data. 



Data Set Organization 



DSORG=IS|DA 



Master_Indexes 

OPTCD=M 
NTM=n 



IS: specifies that an INDEXED data 
set is being created 

DA: specifies that a REGIONAL data 
set is being created 
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PRINT Files 



Declaration of the PRINT attribute for a 
file causes the initial data byte within 
each record to be reserved for an ASA 
printer control character. These control 
characters are set by the PAGE, SKIP, or 
LINE options and format items. Unless 
overridden by these options or format 
items, the printer control character is set 
for single spacing. The following control 
characters are used: 

Page eject 1 
Single space b 
Double space 
Triple space 
Suppress space + 

All these characters cause the spacing 
action to occur before printing the given 
record (it should be noted that a record 
is, in System/360 operating system, a 
line) . The ASA control characters for 
•skip to channel n' are not employed. It 
is possible to use them, however, by speci- 
fying in the DD statement that the ASA 
character is present, but not declaring the 
file to be a PRINT file and not specifying 
record format information in the ENVIRON- 
MENT attribute: in this case, the initial 
byte of each record is available to the 
program. Also, by the above means, it is 
possible to use the initial byte for prin- 
ter control if the RECFM subparameter spe- 
cifies the use of machine carriage control 
characters oy the letter M. 

While a PRINT file is always an output 
file, it is possible to read such a file, 
but not as a PRINT file. This is effected 
simply by not declaring the file as PRINT, 
and opening it for INPUT: the initial data 
byte of each record in the data set will 
then be available for inspection. 

PRINT files, since they have a default 
LINESIZE of 120 characters, need not have 
any record information specified for them. 
The complete default record information 
will become: 

BLKSIZE = 129 
LRECL = 125 

RECFM - VA 

Note^ The LINESIZE for a PRINT file can be 
varied during execution by closing the file 
and reopening it with a different LINESIZE 
option. If this action is taken on a file 
which is being output to any medium other 
than a printer, (the use of MVT and MFT-II 
may cause a file intended for direct print- 
ing to be held temporarily on a direct- 
access device) the record and block size 
established for the file originally cannot 
be changed, and any change to LINESIZE must 



be accommodated within the existing record 
and block size. For example, a PRINT file 
declared with V- format records with a 
maximum length of 60 bytes, a block size of 
69 bytes, and opened with a LINESIZE of 60 
bytes may not be reopened with a LINESIZE 
of 100 bytes, as this will raise the 
UNDEFINEDFILE condition. To avoid this, 
declare the file explicitly with a maximum 
record length and block size large enough 
to accommodate the increased LINESIZE. The 
block size should exceed the LINESIZE by at 
least 9 bytes. If the record length is not 
declared explicitly, it is set to the 
length specified in LINESIZE when the file 
is first opened. 



When the SYSPRINT file is opened, the 
PL/I program automatically positions the 
file output at the start of a new physical 
page- A blank page will appear if the 
first PUT statement using the file: 

1.. Has the PAGE option, or 

2.. Is a PUT EDIT with PAGE as the first 
format item 

If a SIGNAL ENDPAGE (filename) statement 
is present for which there is no corres- 
ponding ON ENDPAGE (filename) on-unit, the 
statement is ignored, and the standard 
system action to start a new page is 
suppressed. This prevents the standard 
system action from attempting to start a 
new page on a file which may not have been 
opened. 

RECORD I/O is not applicable to PRINT 
files, but the use of printer spacing 
characters (ASA or machine code, the latter 
being device dependent) is available 
through the DD statement by means of the 
DCB subparameter of RECFM, or by using one 
Of the options CTLASA/CTL360 in the ENVIR- 
ONMENT attribute. The user is then 
responsible for ensuring that the initial 
character of the record is a valid printer 
control character, which may be a "skip to 
channel n' . 

The ASA channel skip codes are: 

Channel Code 



1 through 9 
10 through 12 



1 through 9 
A through C 



Also, punch stacker select uses the 
following characters: 

punch pocket 1 V 
punch pocket 2 w 

Should any other code be employed, it will 
be interpreted as either single-space or 
pocket 1, depending upon the device in use. 
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1 



Word 1 
2 
3 



Byte 

r . T 

PAGESIZE J LINESIZE 
T 1 T 

(Reserved) | (Reserved) J Tab Count | Tab* 
„ + + + 

Tab 2 | Tab 3 | Tab... \ Tab... 
x x x 



Tabr 



Figure 20. Format of the Tab Control Table 
The Tab Control Table 



DATA, and LIST directed output to PRINT 
files will automatically align data on 
preset tab positions. The positions are 
determined from the tab control table* 
which is the PL/I Library module IHETAB. 
This table can be altered, as described 
below, and either replaced within the 
library permanently or inserted in the 
linkage editor input stream for use in a 
single program only. the format of the tab 
control table is shown in Figure 20. 



PAGESIZE: 



LINESIZE: 



Half-word binary integer 

defining the default 
PAGESIZE 

Half-word binary integer 

defining the default 
LINESIZE 



are begun at the tab 
position specified, or, 
in the case of the first 
data field of a line, at 
the left margin default 
(position 1). 



In its unaltered form, 
up as follows: 



r _ T ., 

| 60 | 120 | 
l_ T x T j 

I | | 5 | 25 | 
H x x X 4 

J 49 | 73 | 97 |121 | 

L X J- JL J 



the table is set 



Reserved Bytes: Reserved for left and 
right margin facilities 

Tab Count: Specifies number of tab 
position entries within 
table (maximum of 255). 
If the tab count = 0, 
then the tab positions 
are not used; each data 
item is put out according 
to the STREAM file output 
mode used. 

Tab fl -Tab n : Tab positions within the 
print line: initial posi- 
tion is numbered 1, grea- 
test position is numbered 
255. The value of each 
tab should be greater 
than that of the tab 
preceding it in the 
table; if not, it is 
ignored during table 
scanning, which proceeds 
through the table from 
Tabd to Tab n for each 
data field. Data fields 



?hdngin^_the_Tab Settings 



To change the tab settings, a user must 
change the values in the assembler language 
control section listed below. To become an 
installation standard, this must be link- 
edited into the PL/I library (data set 
SYS1.PL1LIB) to replace module IHETABS. 
For use in one program only, the object 
deck is link-edited with that program. 



TAB 


TITLE 


•IHETAB' 




IHETAB 


CSECT 








ENTRY 


IHETABS 




IHETABS 


DS 


0D 




PAGESIZE 


DC 


AL2(60) 




LINESIZE 


DC 


AL2M20) 






DC 


H*0' 




NOTABS 


DC 


AL1 (ENDTABS- 


■*-1) 


TAB1 


DC 


ALK25) 




TAB 2 


DC 


AL1U9) 




TAB 3 


DC 


AL1 (73) 




TAB 4 


DC 


ALK97) 




TAB 5 


DC 


AL1 (121) 




ENDTABS 


EQU 
END 


* 
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CREATING AND ACCESSING pATA SETS 



ilable for initially 
are outlined in the 
together with details 
age of created data 
noted that creation of 
ed by opening a file 
subsequent access is 
NPUT or UPDATE. 



The facilities ava 
creating data sets 
following paragraphs, 
for the subsequent us 
sets. It should be 
a data set is indicat 
for OUTPUT, while 
indicated by either I 



STREAM DATA SETS 



Creation of STREAM Data Sets 



There are no special considerations with 
regard to the data set specification beyond 
those already indicated under "File 
Attributes and the DD Statement. " 



Accessing of STREAM Data Sets 



When an I/O statement is executed with 
the EVENT option, input/output of the 
record is initiated but is not completed 
before control is returned to the user's 
problem program. The user can take advan- 
tage of the time taken for the I/O opera- 
tion by incorporating statements whose exe- 
cution is independent of the I/O operation. 
When, at some later stage, it is necessary 
to ensure tnat the I/O operation is com- 
plete, the WAIT statement is used. 

Event_Variablej_ The Event Variable, when 
used in conjunction with a RECORD I/O 
statement, can be in either an active or an 
inactive state. It becomes active when an 
I/O statement with which it is associated 
is executed. It remains active until any 
I/O conditions associated with the I/O 
operation have been raised or until the I/O 
operation has been completed (either nor- 
mally or abnormally) . The Event Variable 
also becomes inactive after a GO TO out of 
an ON-unit entered as a result of a condi- 
tion being raised. An Event Variable which 
is active must not be used again in any I/O 
statement, a CALL or assignment statement, 
or in the COMPLETION pseudovariable, until 
it has become inactive. 



After a STREAM data 
may, with one exceptio 
INPUT. The exceptio 
opened for OUTPUT 
DISP=MOD, in which cas 
added at the end of th 
the data set. In any 
opening a STREAM dat 
result in the data set 



set is created, it 
n, be opened only for 
n is that it may be 
using the parameter 
e the new records are 
e existing records in 
other circumstances, 
a set for OUTPUT will 

being overwritten. 



^isin^_Con^itionsj_ All I/O conditions are 
raised at the time of execution of the WAIT 
statement. The UNDEFINEDFILE condition is 
raised in the normal way when an implicit 
OPEN error occurs. Any statement errors 
that occur cause the I/O operation to be 
teirminated and an ERROR condition raised; 
in this case, the ERROR condition is raised 
when the I/O statement is executed, and the 
Event Variable is unchanged. 



RECORD DATA SETS 



CONSECUTIVE 



Creation and accessing of RECORD- 
oriented data sets varies according to the 
three data set organizations available. 
Details are given below for each of the 
three types: CONSECUTIVE, INDEXED, and 
REGIONAL. 



Creation of CONSECUTIVE Data Sets 



There are no special considerations with 
regard to the data set specification beyond 
those already indicated under "File Attri- 
butes and the DD Statement. " Note that 
LOCATE is only valid for BUFFERED files. 



Use of tne EVENT Option 



The EVENT option gives the user the 
ability to overlap input/output operations 
with internal processing. This option may 
be used with statements for all RECORD 
files except: 

1. SEQUENTIAL BUFFERED (PL/I language 
restriction) 

2. SEQUENTIAL INDEXED ((F) compiler 
implementation restriction) . 



Accessing of CONSECUTIVE Data Sets 



After a CONSECUTIVE data set is created, 
it may, with one exception, be opened only 
for INPUT or UPDATE. The exception is that 
it may be opened for OUTPUT using the 
parameter DISP=MOD, in which case the new 
records are added at the end of the exist- 
ing records in the data set. In any other 
circumstances, opening a CONSECUTIVE data 
set for OUTPUT will result in the data set 
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being overwritten. Reading of such a data 
set may be either forwards or backwards if 
it resides on tape; to read backwards, the 
file must be opened with the BACKWARDS 
attribute. If a file is first read (or 
written) forwards, and then read backwards, 
the LEAVE option in the ENVIRONMENT attri- 
bute should be specified, to prevent the 
normal rewind at close time, or when volume 
switching occurs on a multivolume data set. 



Replacement of Records; When a CONSECUTIVE 
data "set is' opened for SEQUENTIAL UPDATE, 
the only I/O - statements which may be used, 
apart from OPEN and CLOSE, are READ and 
REWRITE. READ. SET and REWRITE without 
options can only be used for BUFFERED 
files. A REWRITE statement may not be 
issued until 'a READ statement has been 
issued; and a REWRITE statement will always 
update the last record read. It is not 
permissible ' po have intervening READ state- 
ments between a READ and a REWRITE refer- 
ring to the same record in the data set. 
For example: 



1 READ FILE(F) INTO(A); 



5 READ FILE(F) INTO(B); 



9 REWRITE FILE(F) FROM(C); 

In the above example, statement number (9) 
updates the record which was read at state- 
ment number (5). The record which was read 
at statement number (1) can never be updat- 
ed after statement number (5) has been 
executed. 

Consider also the following: 

1 READ FILE(F) INTO(A) EVENT(E1); 



5 READ FILE(F) INTO(B) EVENT(E2) ; 



9 WAIT (ED; 
10 REWRITE FILE(F) FROM(A); 

Statement number (10) would cause the ERROR 
condition to be raised, since between the 
REWRITE statement and its corresponding 
READ statement (1), there is an intervening 
READ statement (5). 

When blocked records are used with UPDATE 
files „ it must be remembered that if one 
record in a block is rewritten, then all 
the records in that block are rewritten. 
The user must take this into account when 



updating records obtained by means of 
READ SET. 



INDEXED 



Creation of INDEXED Data Sets 



Special DD statement requirements are as 
follows: 

One, two, or three DD statements are 
required. The number depends on tne 
sizes and relative positions of the 
three parts of the INDEXED data set, 
namely the prime data area, the over- 
flow area, and the index area. The 
SPACE and DSNAME fields of the DD card 
have special formats for INDEXED data 
sets. 

The following DCB subparameters roust be 
specified: 

KEYLEN=n 
DSORG=IS 

The following DCB subparameters may be 
specified: 

RKP=n 

OPTCD=L|M| Y| I (or any combination) 

NTM=n 

CYLOFL=n 

Space for the data set must be allocat- 
ed in cylinders, unless the absolute 
track (ABSTR) technique is used. If 
ABSTR is used, the number of tracks 
must be equivalent to an integral num- 
ber of cylinders, and the first track 
used must be the first track on a 
cylinder which is not the first cylin- 
der on a volume. 

Programming considerations are as fol- 
lows: 

For blocked INDEXED data sets, the DCB 
subparameters LRECL and BLKSIZE must be 
specified as follows: 

Without embedded key (i.e.,, RKP=0) f 
LRECL = size of data area + size of 
key 

With embedded key (i.e., RKP*0) # 
LRECL = size of data area 

In botn cases, BLKSIZE = LRECL x 
blocking factor. 

Creation of an INDEXED data set is only 
available in the SEQUENTIAL OUTPUT 
mode. The EVENT option is not support- 
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ed for SEQUENTIAL access to INDEXED 
data sets. The LOCATE statement is 
only valid for BUFFERED files. 

When creating INDEXED data sets, the 
values of the keys presented must be in 
ascending collating sequence order; 
i.e., the binary value of each succes- 
sive key must be greater by at least 1 
than that of the previously presented 
key. Therefore, duplicate keys cannot 
be added to the data set. 

Data set specifications made during 
creation may not be altered during 
subsequent processing of the data set; 
e.g. KEYLEN is fixed during creation. 
Also provision for overflow areas, 
whether cylinder or independent, must 
be made when the data set is created. 
If the prime data area is not filled 
during creation, then, with one excep- 
tion, the unused area is not usable for 
overflow records, nor for any records 
subsequently added during direct 
access. The exception is that the 
unfilled portion of the last track used 
may be filled if required. It is 
possible to reserve space for later use 
within the prime data area by writing 
"dummy" records during creation: pro- 
vided that the initial byte of the 
record has the value (8) ' 1 ' B, and that 
the option OPTCD=L has been specified, 
these dummy records can subsequently be 
replaced by actual records with the 
same key. 

Refer to the publication IfM System/3 60 
Operating, System, _ Jo b_ Control Language , and 

IBM System/360 Operating Sy stem, Job Con- 

trol_Language^ Charts, for more detailed 

discussion of the above considerations. 



Accessing„gf INDEXED Dafca_Sets 



After an INDEXED data set is created, it 
may be reopened for INPUT or UPDATE, for 
either SEQUENTIAL or DIRECT access. If 
opened for DIRECT access, records may then 
be added and deleted. It should be noted 
that once created, an INDEXED data set may 
not be opened for OUTPUT to add further 
records; it must be opened for UPDATE. 

The user is cautioned that only one 
DIRECT UPDATE file that adds records to an 
INDEXED data set should be open at any one 
time. If two files are simultaneously open 
for SEQUENTIAL and DIRECT processing of the 
same INDEXED data set, then the following 
records might not be accessed by the 
SEQUENTIAL file: 



Records written directly in the 
flow area of the data set. 



over- 



1. 



Records added to the end of the data 
set. 



Records written on the overflow area 

when forced out of the prime data area 

by a record being added to this data 
area. 



SEQUENTIAL Access 



INDEXED data sets accessed in the 
SEQUENTIAL fashion may be opened for either 
INPUT or UPDATE, once created. Sequential 
access is in the order defined by the 
values of the recorded key, i.e., ascending 
collating sequence order. Records are 
retrieved in this order irrespective of the 
sequence in which they were added to the 
data set. Those records which have been 
deleted are not retrieved, and may be 
overwritten or lost when other records are 
added to the data set. 

It is possible to use the KEY option on 
READ statements to cause repositioning, in 
either a forward or backward direction, 
among the records being sequentially 
accessed either for INPUT or UPDATE. This 
facility is available only if the KEYED 
attribute is specified. Repositioning may 
be either to a specified record or, if 
GENKEY has been specified in the ENVIRON- 
MENT option list, to the first non-dummy 
record of a particular key class. In 
either case a record is retrieved followed 
by the next higher keyed record if the 
subsequent READ does not have a KEY option. 
If the specified KEY is not found in the 
data set, the KEY condition is raised. A 
subsequent READ without the KEY option will 
retrieve the first record in the data set. 

The EVENT option is not supported for 
SEQUENTIAL access to INDEXED data sets. 
READ SET and REWRITE without the FROM 
option are only valid for BUFFERED files. 

When opened for SEQUENTIAL UPDATE, only 
the statements READ and REWRITE (other than 
OPEN and CLOSE) may apply to the file. The 
order of operation must be READ then REW- 
RITE,, but not every record read need be 
rewritten. When blocked records are used 
with UPDATE files, it must be remembered 
that if one record in a block is rewritten, 
then all the records in that block are 
rewritten. The user must take this into 
account when updating records obtained by 
means of READ.... SET. Records may not oe 
added to the data set when in this mode, 
but they may be deleted simply by setting 
the initial character of the record to the 
delete-code (i.e. a character of the value 
(8)*V B) and then rewriting it. This can 
also be done by using the DELETE statement 
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which marks as deleted the last record 
read. Records which are marked "deleted" 
are not made available during sequential 
input. 

If blocked records are to be deleted, 
RKP must be greater than 0. This is 
necessary because a deleted record is indi- 
cated by (SWB in the first byte and, for 
blocked records, this byte is part of the 
recorded key; hence if RKP=0, the access of 
subsequent records in the block may be 
impossible. 

After several usages of an INDEXED data 
set in which records have been added or 
deleted, it may become desirable to copy 
the data set from one volume to another in 
order to purge the data set of records 
marked deleted, but still physically pre- 
sent, and to collect records from overflow 
areas into the prime data areas. Such 
reorganization will allow more efficient 
future access to the data set. 



If blocked records are to be deleted, 
RKP must be specified as greater than zero. 
Otherwise, owing to the technique by which 
records are marked as deleted — by setting 
the initial byte of the record, which for 
blocked records includes the recorded key, 
to the value (8)'1*B — the locating of 
subsequent records in the data set may be 
impossible. 

Sggl^gg^gSfe 2l Rec ords i The specified 

record is overwritten by the replacement 
record. Records may be replaced without 
having been read, unless the data set 
contains blocked records, in which case the 
sequence must be READ then REWRITE. In the 
case of blocked records, a WRITE, DELETE, 
or READ statement may not be issued while a 
previous READ statement is still outstand- 
ing; that is, before its corresponding 
REWRITE statement has been issued. The 
EXCLUSIVE attribute should be specified to 
synchronize the READ-REWRITE cycle and 
WRITE statements. 



DIRECT Access 



REGIONAL 



INDEXED data sets accessed in the DIRECT 
fashion may be opened for INPUT or UPDATE, 
once created. A DIRECT UPDATE file may 
have records added, deleted, or replaced, 
as well as retrieved. 



Retrieval of Records : Records 

"deleted" are not made available. 



marked 



■ddition of _Records^ If the key is unique, 
the record is added to the data set, either 
in the prime area (possibly replacing one 
marked deleted), or in an overflow area; 
indexes are automatically updated as neces- 
sary. Duplicate keys cause the KEY condi- 
tion to be raised, as will failure to find 
available space for the addition of 
records. 

If a new record is added to a data set 
whose overflow areas are already full, a 
record will be irretrievably lost. The 
position of the new record, in relation to 
the existing records on the track, will 
determine whether it is the new record or 
an existing one which is lost. If the new 
record would follow the last existing 
record on the track, the new record will be 
lost. Otherwise, the last existing record 
on the track will be lost. In either case, 
the KEY condition will be raised- 

Deletion of .Records: The specified record 
is located," marked deleted, and rewritten 
into the data set. Note that deletion of 
records is only available if the DCB param- 
eter of the DD statement specified OPTCD=L. 



The three types of REGIONAL data set 
organization are treated together in the 
following paragraphs. 



Creation of REGIONAL Data Sets 



Special DD statement requirements are as 
follows: 

The following DCB subparameters must be 
specified: 

KEYLEN=n (except for REGIONAL(D) 
DSORG=DA 

The following DCB subparameters may be 
specified: 

LIMCT=n (except for REGIONAL(D) 

Space allocation (via the DD statement 
parameter SPACE) may be in terms of 
records, tracks, or cylinders; use of 
the ABSTR subparameter is permitted 
also. When allocating space for a 
REGIONAL data set, it is possible to 
request secondary allocation, such that 
when the initial allocation is filled, 
a second allocation is automatically 
made; further allocations are also made 
when necessary. (Secondary allocation 
is only available when the data set is 
being created, and then only when 
opened for SEQUENTIAL OUTPUT; opening 
for DIRECT OUTPUT causes the initial 
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allocation, only, to be "formatted" for 
direct placement of records. ) 

Programming considerations are as fol- 
lows: 

Creation of REGIONAL data sets may be 
performed with either DIRECT or SEQUEN- 
TIAL access; the mode must be OUTPUT. 

D IRECT Creation : Upon opening the data 
set, it is initialized in accordance 
with the record format employed. 

F-formac (REGIONALd), (2), and (3)): 
Each track within the initial alloca- 
tion is initialized with dummy records 
(and keys, if (2) or (3)). 

U- and V-format (REGI0NAL(3) ) : Eacn 
track within the initial allocation is 
"cleared" by writing a special record 
termed the capacity record. This 
record is set to indicate that the 
complete track is available for the 
addition of records. 

Creation employing the DIRECT access 
technique permits records to be placed 
anywhere within the data set, in any 
order. Subsequent retrieval of these 
records in a SEQUENTIAL fashion, howev- 
er, will access the records in a physi- 
cally sequential order. 

When there is a danger of more than one 
record having the same recorded key, 
the DCB subparameter KEYLEN should be 
increased so that the region number is 
also recorded; provided that the region 
number of the two records is not also 
the same, there will then be no retrie- 
val problem. 

SEQUENTIAL Creation^ Keyed records are 
presented for addition to the data set 
according to the following rules. 

REGIONALd) and (2): The positioning 
value of the key must increment by at 
least 1 for each successive key; if the 
value increments by a value greater 
than 1 , say n, then n - 1 dummy records 
are added to the data set before the 
given record is added. 

REGIONALd): The positioning value of 
the key remains constant for addition 
of records to a given track. When 
switching to a new track is desired, 
the positioning value is incremented by 
at least 1. If the value increments by 
a value greater than 1, say n, then 
n - 1 intervening tracks are cleared 
(if formats U or V) or written with 
dummy records (if format F, in which 
case the current track is completed 
with dummy records). 



If a LOCATE statement was used in the 
addition of KEYED records to any type 
of REGIONAL data set, then, if the 
RECORD condition is raised, the key 
value presented at subsequent opera- 
tions must not be less than the current 
one. 

Creation employing the SEQUENTIAL 
access techniques causes records to £e 
added to the data set in a physically 
sequential order, according to ascend- 
ing relative record or track value. 
Subsequent retrieval of the data set in 
a SEQUENTIAL fashion will access these 
records in the same order (as well as 
any records which may have been insert- 
ed between them). When a sequentially 
created REGIONAL data set is closed, 
the current extent is completed with 
dummy records, or the remaining tracks 
are cleared. 



The user is 
REGIONALd) data 
duplicate keys 
quent DIRECT ace 
record with the 
given track 
" extended- s ear ch 
i.e., if the DD 
absent or spec 
than one) . 



cautioned that, for 

sets, the addition of 

is not detected; subse- 

ess will read the first 

required key on the 

(or tracks, if 

" has been requested, 

subparameter LIMCT is 

ifies a value greater 



Also note that when a given track of a 
REGIONALd) data set becomes filled by 
sequential addition of records with the 
same region number (relative track 
value) , the current track number is 
automatically incremented by 1. If an 
attempt is then made to add another 
record with the same region number, the 
KEY condition is raised (key sequence 
error) and the excess record is not 
added to the data set. 



ftgeggsing^of ggQJQffAL Data Sets 



After a REGIONAL data set is created, it 
may be reopened for INPUT or UPDATE, 
SEQUENTIAL or DIRECT. If opened for DIRECT 
access, records may then be added or delet- 
ed. It should be noted that once created, 
a REGIONAL data set may not be opened for 
OUTPUT to add further records; it must be 
opened for UPDATE. 



REGIONAL data sets accessed in the 
SEQUENTIAL fashion may be opened for either 
INPUT or UPDATE, once created. Sequential 
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access is in the order of ascending rela- 
tive record (REGIONAL* 1) and (2)) or track 
value; the value of the keys does not 
affect the order of retrieval. It should 
be noted that all records within a 
REGIONALd) data set, whether dummy or 
actual, are retrieved in sequence; if dummy 
records are present, the user should be 
prepared to recognize them if necessary. 
Deleted (dummy) records in REGIONALO) or 
(3) data sets are not made available. 



DIRECT Access 



REGIONAL data sets accessed in the 
DIRECT fashion may be opened for either 
INPUT or UPDATE, once created. An UPDATE 
file may have records added, deleted, or 
replaced, as well as retrieved. Facilities 
available for DIRECT access vary according 
to the REGIONAL type, and the record format 
in the case of REGIONALO). 



It is not possible to employ the KEY 
option when retrieving REGIONAL data sets 
sequentially. 



Replacement of Records : When a REGIONAL 

data set is opened for SEQUENTIAL UPDATE, 
the only I/O statements which may be used, 
apart from OPEN and CLOSE, are READ and 
REWRITE. A REWRITE statement may not be 
issued until a READ statement has been 
issued; and a REWRITE statement will always 
update the last record read. It is not 
permissible to have intervening READ state- 
ments between a READ and a REWRITE refer- 
ring to the same record in the data set. 
For example: 



1 READ FILE(F) INTO(A); 



5 READ FILE(F) INTO(B); 



9 REWRITE FILE(F) FROM(C); 

In the above example, statement number (9) 
updates the record which was read at state- 
ment number (5). The record which was read 
at statement number (1) can never be updat- 
ed after statement number (5) has been 
executed. 

Consider also the following: 

1 READ FILE(F) INTO(A) EVENT(E1); 



5 READ FILE(F) INTO(B) EVENT(E2); 



9 WAIT. (ED; 
10 REWRITE FILE(F) FROM(A); 

Statement number (10) would cause the ERROR 
condition to be raised, since between the 
REWRITE statement and its corresponding 
READ statement (1), there is an intervening 
READ statement (5). 



The user is cautioned that, for 
REGIONALd) data sets, records added with a 
source key specifying the relative record 
position of an existing record will over- 
write the existing record without notifica- 
tion. Also, for REGIONAL(2) and (3), the 
use of the "extended search" feature may 
cause a record to be added beyond the track 
containing the specified region 
(REGIONAL(2) ) , or beyond the specified 
track (REGIONALO)); this can be prevented 
by use of the DCB subparameter LIMCT (see 
the paragraph "Extended Search Limit," ear- 
lier in this chapter) . If LIMCT is speci- 
fied as 1, insertion is confined to the 
track containing the specified record 
(REGIONALO)) or the specified track 
(REGIONALO)). Another point to note is 
that it is quite possible to add, in a 
REGIONAL(2) or (3) data set, a new record 
whose recorded key is the same as tnat of 
an existing record. In such a case, the 
record which is physically farthest from 
the beginning of the data set may never be 
retrieved by DIRECT access. 

Retrieval of Records: 



REGIONALd) : 



REGIONALO) 



REGIONALO) : 



All records, whether dummy 
or actual, may be 
retrieved. 

Records marked dummy cannot 
be retrieved. 

Records marked dummy cannot 
be retrieved. 



Addition of Records: 

REGIONALd): "Addition" is actually 
replacement of existing 
records, whether dummy or 
actual (no condition is 
raised in either case). 

REGIONALO): "Addition" is actually 
replacement of dummy 
records on the track con- 
taining the relative record 
number specified (or subse- 
quent tracks, if extended- 
search has been requested, 
i.e., LIMCT > 1 or absent). 

REGIONALO): If F-format records, as for 
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REGI0NAL(2). If U- or V- 
format records, records are 
added to available space on 
specified track (or 
subsequent tracks, if 
extended-search has been 
requested, i.e., LIMCT > 1 
or absent). 



Deletion of Records: 



REGIONALd) 



REGIONAL (2) : 



The specified record is 
overwritten with a dummy 
record; the space may be 
reused. 



The specified record is 
overwritten with a dummy 
record, the key being re- 
written as a dummy key; the 
space may be reused. 



MOVE MODE 



Characteristics 



Input: Data is moved (possibly via a 
buffer) from a file to a work area, 
where it is processed. (The work area is 
the record variable. ) 

Ou tput : Data is moved from the work area to 
a file, possibly via a buffer. 

Move mode may be simpler to use than 
locate mode, as there are no buffer align- 
ment problems. In cases where there are 
numerous references to the contents of a 
record, it can also be faster, as it does 
not have the indirect addressing overhead 
of locate mode. 



REGIONALO): If F-format records, as for 
REGIONAL (2). If U- or V- 
format records, the record 
is overwritten with a dummy 
record, the key being re- 
written as a dummy key; the 
space may not be reused. 



Bgj?lacemenj:_ Of _ReCQrdS : 

REGIONALd) : 



The specified 
whether a dummy 
actual record, 
written. 



record, 
or an 

is re- 



REGI0NAL(2) 



REGIONALO) 



The specified record is re- 
written; a record with the 
specified key must exist. 

As for REGI0NAL(2), for all 
record formats. 



Language Forms 

The basic statements used in move mode are: 

READ FILE (filename) INTO (record 

variable) ; 
WRITE FILE (filename) FROM (record 

variable) ; 
REWRITE FILE (filename) FROM (record 

variable) ; 

File Attributes 



The full set of RECORD-oriented I/O file 
attributes is permitted. 



If a REGIONAL file has the EXCLUSIVE attri- 
bute, then, in order to lock a particular 
record, different tasks must use the same 
region number to refer to the record. 



LOCATE MODE 



Characteristics 



PROCESSING MODES IN RECORD I/O 



In RECORD I/O, the user has the choice 
of processing a record in a work area or in 
a buffer. This choice is exercised by 
selecting one of two processing modes: move 
mode or locate mode. There are advantages 
in processing an entire file with one mode, 
but it is permitted to use a combination of 
both modes in the same file. 



Input: Data is moved from a file to an 
input buffer, where it is processed. 

Output: The data record is constructed by 
the user in an output buffer. The 
buffer is then transmitted to a file. 

The locate mode input statement sets the 
address of the record (in the buffer) in a 
pointer variable. The record can then be 
identified for processing by using this 
pointer in conjunction with a based varia- 
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ble that defines the structure of the 
record. As many based variables as are 
required can be declared for a file; the 
record can be associated with any of them. 

Locate mode can be used to read self - 
defining records. These are records where 
information in one part of the record is 
used to indicate the structure of the rest 
of the record. This information could be, 
for example, a count of the number of 
repetitions of a subfield, or a code 
identifying which one of a class of struc- 
tures should be used to interpret the 
record. 

Locate mode should also provide faster 
execution, as there is no need to move data 
from a buffer to a work area, and may have 
a smaller storage requirement, because no 
storage is needed for separate work areas. 

Whenever a statement that causes data 
transmission to or from a file is executed, 
any logical record accessed previously by a 
locate mode statement is no longer availa- 
ble for processing. 



(filename) SET (pointer 



READ FILE 

variable) ; 
LOCATE based variable FILE 

[SET (pointer variable);] 
REWRITE FILE (filename); 



(filename) 



File Attributes 



Locate mode can only be used with SEQUEN- 
TIAL BUFFERED files. The KEYED and ENVIR- 
ONMENT attributes may be specified; the 
other file attributes permitted depend on 
the statement used: 



Statement 

READ (with SET) 

LOCATE 

REWRITE (without FROM) 



File Attribute 
INPUT/UPDATE 
OUTPUT 
UPDATE 



iSH2^§:2§_ll2£.5!§ 



If any of these attributes is not explicit- 
ly or implicitly declared, or if any other 
attribute is present, the ERROR condition 
is raised. 



The basic statements used in locate mode 
are: 
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SYSTEM REQUIREMENTS 



To operate successfully, the PL/I (F) 
Compiler and its associated load modules 
must have the required amount of main 
storage and input/output devices, as speci- 
fied in the following paragraphs. 



MINIMUM SYSTEM/360 REQUIREMEN TS FOR THE ( F) 
COMPILER 



System/360 operating system operates in 
a device-independent environment. In par- 
ticular, the (F) Compiler may operate with 
different combinations of devices. Howev- 
er, certain restrictions should be noted. 

The PL/I (F) Compiler requires at least 
a System/360 Model 30 with a minimum of 
64K bytes of storage. At least 45,056 
(44K) bytes should be allocated in the 
SIZE option. If additional storage is 
available and allocated, the compiler 
will in general run more efficiently 
and provide a faster compilation. 

At least one direct access device must 
be used for residence of the operating 
system, and for the use of the SYSUT1 
data set. The same volume may be used 
for both purposes. The use of certain 
source program and operating system 
features requires a storage minimum 
greater than that given above. For 
example, PL/I tasking uses the MVT 
system, which requires at least 256K 
bytes of storage. 



E£iDtg£-Charac^er_Sets 

For flexibility in character sets and 
graphic representation, the following types 
of chains, trains, or type bars are availa- 
ble for use with output printers. 

IM3^rinter_Ch^ins_or_Trains 

£haj:acter_Set Chain_Type 



48-character set 
BCD 
60-character set 



HN 
HN 
PN or QN 



1.^^3..Printer -- Type Bars 

Character_Set §ar_Ty_p_e 



48-character set 
BCD 
60-character set 



52H 
52H 
63-character bar 



Operator's Console_C har acter Sets 



The operator's console should have the 
IBM 1052 printer keyboard Model 7 with dual 
case printing element, feature code 9572. 



SYSTEM/360 OPERATING SYSTEM REQUIREMENTS 



PriQ}ary_Control_P.roc[rarn_of the Operating 
System 



Instruction Sets 



The standard, decimal, and floating- 
point instruction sets are required by the 
compiler and object programs, irrespective 
of declared data attributes. 



Timing Clock 



The timer feature is required in order 
to provide elapsed time of compilation, or 
to support the timer built-in function. In 
the absence of the clock, no time 
information will be printed out. 



The primary control program of the oper- 
ating system provides all sequential sche- 
duling features of the job control language 
as specified in the publications IBM 

System/360 Operating System^ j[Qfc_£ontrol 

Language, and IBM System/360 Operating Sys- 
te m, Operator's Guide. It affords data 
management capability and contains a super- 
visor which provides for: 

Efficient overlapping of central proc- 
essing unit operations and input/output 
channel activity 

Error checking and standard input/ 
output error recovery procedures 

Supervision and processing of interrup- 
tions 



Supervision of requests for various 
services provided by the system 

This control program provides for a 
single input job stream and the sequential 
processing of job steps through single task 
operations. 



lation, a message will be generated giving 
the actual time taken. Under MVT, the time 
given is CPU time only, as I/O time cannot 
be measured. 



OBJECT PROGRAM SUPPORT 



Multiprogramming_with__a : Fixe d Number of 
Tasks (MFT) 



Control .Program__Options 



This is an extension of the primary 
control program. It provides for concur- 
rent control of up to four independent 
tasks representing separate jobs. Each job 
occupies its own fixed partition of main 
storage. 



Figure 21 shows the control program 
options which may be added to the primary 
control program in order to provide greater 
performance and/or programming flexibility 
for the various features of PL/I. These 
exclude input/output features. 



Multiprogramming with a i Variable Number o f 
Tasks (MVT) 



This provides, in addition to the facil- 
ities provided by the primary control pro- 
gram: 

Priority scheduling of jobs submitted 
from single or multiple job streams 

Concurrent scheduling and execution of 
up to 15 separately protected jobs 

The MVT system is used in PL/I tasking . 



r t 1 

| PL/I Feature | Control Program Option* ] 



WAIT 

Tasking 

TIME, DATE 

TIME, DATE 
DELAY 



Multiple WAIT 

MVT 

Timing: A. Time 

Timing: B. Interval timing 



}. x ., 

* See the publication IBM_Sy_s tern/ 36 
Op_eratin£_System i _Stora2e_Estimates 
for further details of these options. 

L J 

Figure 21. Control Program Options 



COMPILER SUPPORT 



Usage _ of ..Data^Managemgnt ;,„. Access Methods for 
STREAM I/0~ 



After the compiler initially receives 
control from the calling program of the 
operating system by means of a supervisor- 
assisted linkage, communication is 
maintained with the operating system 
through the compiler control routines. 

The functions provided by the primary 
control program of the operating system, 
together with the data management routines 
BSAM and QSAM, are required by the compil- 
er. In addition, BPAM data management 
routines are required by the compile-time 
processor if the INCLUDE statement is used. 

Object-time interfaces with the operat- 
ing system control program are made through 
the PL/I Library routines. 

The facility for providing details of 
the time taken for each compilation must be 
specified at system generation time through 
the control program options (see "Object 
Program Support"). On completing a compi- 



STREAM I/O within PL/I is supported by 
the queued sequential access method (QSAM) . 
In order to conserve space and time, the 
GET and PUT macros are used in the locate 
mode whenever possible. Automatic data- 
transmission computing-time overlap is 
provided, as are blocking-deblocking func- 
tions. In order to achieve an efficient 
degree of I/O overlap, two buffers are 
normally allocated to each data set when it 
is opened. The number of buffers allocated 
is, however, under the control of the DD 
statement, or the BUFFERS option of the 
ENVIRONMENT attribute. 



Usage of _pata_Management - ^ccess^ Methods for 
RECORD I/O 



The access method employed depends upon 
the following factors: 
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r t 

Organization 



Access 



Mode 



Buffering 



Record 
Format 



Access 
Method 



Notes on Use of 
Access Method 



CONSECUTIVE 



SEQUENTIAL 



INPUT 

UPDATE 

OUTPUT 



BUFFERED 



All 



QSAM 



Locate mode 
(except paper tape) 



UNBUFFERED 



+-- 



F|UJ V 



BSAM 



INPUT 
UPDATE 



SEQUENTIAL 



INDEXED 



BUFFERED 

or 

UNBUFFERED 



Scan mode 
ESETL/SETL 



OUTPUT 



DIRECT 



INPUT 
UPDATE 



-H 



FjFB 



QISAM 



Load mode 



BISAM 



INPUT 
UPDATE 



SEQUENTIAL 



BUFFERED 

or 

UNBUFFERED 



QSAM (under certain 
circumstances ) 



OUTPUT 



REGIONALd) , 
(2), and (3) 



F (REGIONAL 
1<1> and (2)) 

F|U| V 
(REGIONALO)) 



BSAM I- 



BDAM load mode 



DIRECT 



INPUT 

OUTPUT 

UPDATE 



BDAM 



REGIONALd) * 
Relative record 
without keys 
REGIONAL(2) * 
Relative record 
with keys 
REGIONALO) * 
Relative track 
with keys 



|* OUTPUT causes data set to be formatted using BSAM (BDAM load mode) at open time 

L , 

•Figure 22. Usage of Data Management Access Methods for RECORD-Oriented I/O 

Organization 
Record format 
File attributes 

The various combinations of the above, 
and the resultant usage of data management, 
are illustrated in Figure 22. 
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MANAGING PROGRAMS 



PROGRAM SEGMENTATION 



The MAIN Option 



Although external procedures must be 
compiled separately, several compilations 
may be processed by the linkage editor to 
form a single load module. In order to 
execute such a load module, the external 
procedure of one of the compilations must 
possess the option MAIN. 

If more than one compilation has this 
option, then the linkage editor will cause 
control to be passed to the first of these 
compilations to appear in its input stream- 
Note that tnis is a function of the linkage 
editor itself and is not a formal PL/I 
facility. 

An attempt to execute a PL/I program in 
which no procedure has been given the MAIN 
option will result in termination of execu- 
tion, accompanied by a message on the 
console or system output listing. 



Communication Between Separat e Compilatio ns 



Communication between separate compila- 
tions can be achieved by means of EXTERNAL 
declarations or by passing arguments in 
CALL statements or function references. It 
should be noted that the PL/I language 
makes the following restrictions: 

AUTOMATIC variables cannot be EXTERNAL 
(but may be passed as arguments) 

Descriptions of an external variable in 
separate compilations must not be con- 
tradictory. If they are, the compiler 
will not be able to detect this. 

The linkage editor will load the INITIAL 
value of a STATIC EXTERNAL variable from 
the first object module encountered in its 
input stream which declared the variable. 



Estimation of Program Size 



In order to estimate with any accuracy 
the maximum overall storage requirements 
for a PL/I program, several factors must be 
taken into account. The information pro- 



vided by the compiler and the linkage 
editor is a guide only to the space 
required by the executable control section 
and the STATIC INTERNAL control section in 
the load module. Several other items must 
be added to this to obtain a realistic 
estimate of the maximum otject-time 
requirements. These include the following: 



1 - Pseadq- Register Vector iPRV)_. The 

overall length of the PRV is contained 
in the linkage editor module map, 
which is produced when the MAP option 
is specified. The maximum size of a 
PRV is 4096 bytes. (Refer to Appendix 
C of this publication for a more 
detailed description of pseudo- 
register vectors. ) The primary 
workspace requirement for the library 
is approximately 1100 bytes, which 
should oe added to the PRV require- 
ment, plus 512 bytes if optimization 
level OPT=1 has been chosen. 

2- lSt§^£iiEt <mi5 Error handling. For 

each PL/I interrupt, 1100 bytes are 
required for library workspace. In 
addition, library modules which are 
dynamically invoked as a result of 
interrupts may require up to 2600 
bytes (irrespective of the number of 
interrupts). All storage required for 
interrupt and error handling is 
released when the interrupt has been 
cleared. 

3. Dypamic ,_5torac[e [.Areas (PSAs) . A gen- 
eral guide to the length of each DSA 
is to add 200 bytes per active clock 
to the space required for the AUTOMAT- 
IC variables declared within the block 
and their dope vectors. This is only 
a guideline; there may be considerable 
variations between different programs. 

4. CONTROLLED Variables. Each allocated 

generation of each CONTROLLED variable 
will require 12 bytes in addition to 
the space required for the contents of 
the variable and its dope vector. 

5. File Manipulation. The main factors 

to be considered in estimating the 
storage required when opening and 
closing files are as follows: 

a. File Control Block (FCB) . Approx- 
imately 150 bytes for CONSECUTIVE 
and REGIONAL data set organiza- 
tions; approximately 300 bytes for 
INDEXED organization. 
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1300 
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2400 
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2400 




2400 
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Hoc 




1100 




| SEQ. BUFF- (spanned input) 




1900 
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1900 




1900 




2300 




600 




600 
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2200 
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500 
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1 
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I 
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3600 
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| SEQUENTIAL INPUT/UPDATE 




5100 
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5500 




3800 




3800 




J SEQUENTIAL OUTPUT 




3900 
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3900 




3900 




4300 




2600 




2600 




| DIRECT 




3100 


I 


3900 




3100 




4300 




1800 




2600 



These figures show the extra storage required by linked PL/I library 
both non-tasking and tasking environments. The first two columns 
space occupied by the library modules during the opening of a file 
attributes. The second two columns show the maximum space occ 
closing of the same file. The third two columns show the space o 
library modules while the file is open. If several files with the 
are processed, then the storage requirements are unaffected. If, h 
file with different attributes is open when a file is opened or 
figure for that file must be added to the figure in the OPEN and CLOS 
For instance, if a SEQUENTIAL INDEXED file is open in a non-tasking 
the time that a CONSECUTIVE SEQUENTIAL BUFFERED file is being closed 
storage required by the linked modules will be 2300+2400=4700 bytes, 
not include the storage required by data management. 

L J , 

•Figure 23. Storage Required by PL/I Library Modules when Opening and Closing Files 



I/O modules in 
show the maximum 
with the given 
upied during the 
ccupied by the 

same attributes 
owever, another 
closed,, then the 
E column. 

environment at 
then the total 

The figures do 



Library modules. The greatest 

storage requirement generally 
occurs when a file is opened or 
closed. Figure 23 shows the stor- 
age required at these times. In 
all cases, the space required by 
data management must be added to 
the figures given. 

Buffers. In addition to the fac- 
tors given above, space must be 
allowed for buffers or I/O control 
blocks. This requirement can 
become very large if large block- 
sizes are used. 



structured to support the advanced features 
of PL/I. In order to achieve more than a 
limited use, the user would require an 
intimate knowledge of the object code 
structure and requirements of a PL/I pro- 
grcim. Appendix C is provided as an intro- 
duction to the subject. Appendix D of the 
present manual contains an example illus- 
trating one way in which an assembler 
language program can be written in order to 
combine it with a PL/I procedure. 



All space required by files is 
released and becomes reusable after 
the file has been closed. 



Variable- Length_Argument_List 



NON-PL/I MODULES IN PL/I PROGRAMS 



Comb ination of PL/I With Othe r Languages 



The combination of modules written in 
other languages with modules written in 
PL/I is possible only in a rather limited 
way, since most other languages are not 



When an assembler subroutine is called 
by a PL/I program, by means of a CALL 
statement or a function reference, a varia- 
ble number of arguments can be passed. The 
compiler indicates the last argument by 
setting X'80" in its high-order byte. 

This feature provides compatibility with 
COBOL and FORTRAN calling sequences. It 
cannot be used in an exclusively PL/I 
environment because PL/I does not allow a 
variable number of arguments. 
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PL/I_Librar^_Subroutine£ 



PL/I object programs make use of a large 
number of subroutines. These subroutines 
are held in the PL/I library and are 
incorporated into the PL/I program by the 
linkage editor. Library modules not 
directly referenced by the compiled module, 
but which are selectively referenced by 
other required modules (e.g., modules with- 
in in the data conversion package) are 
specified by the compiler in ESD entries. 
These ESD entries, in conjunction with the 
linkage editor control statement, LIBRARY* 
are used to keep the program's storage 
requirements to a minimum. The form of the 
LIBRARY statement used specifies that the 
linkage editor is not obliged to resolve 
certain external references within a given 
module, unless the referends are already 
included within the module being edited. 
Those modules which require this feature 
use the LIBRARY control statement when they 
are edited into the PL/I library. Thus, 
when these modules are subsequently proc- 
essed by the linkage editor when building a 
PL/I program, there will be no second- level 
search of the library. Library subroutines 
are automatically selected, and no user 
intervention is needed. 

Other library modules are used on a 
transient basis, and are dynamically loaded 
during program execution. These modules 
reside within the data set SYS1. LINKLIB. 
Modules of this type include those required 
for opening and closing files, RECORD I/O 
data management interface modules, and 
object-program error-handling routines and 
message tables. 



CONDITIONAL EXECUTION OF JOB STEPS 



It is possible for the programmer to 
specify that a particular job step shall 
not be executed if any of certain condi- 
tions are satisfied by return codes passed 
from previously executed job steps. A 
return code can be set during execution of 
a PL/I program. 



Setting_Conditions 



The conditions under which a job step is 
to be bypassed are set out in the COND 
parameter of the EXEC statement for the 
step. For example, if the EXEC statement 
for a job step, STEPC, contained the param- 
eter 

COND=( (22,GT,STEPA), ( 59, NE, STEPB) ) 



then, if 22 were greater than the return 
code passed from STEPA, or if 59 were not 
equal to the return code passed from STEPB, 
the job step STEPC would not be executed. 
For further information on the use of the 
COND parameter, see the publication I EM 
System/360_Operatinq System f Job Control 
Lanquaqe. 



Return Code Setting^by PL/I Object ..Program 



To use this facility in a PL/I program, 
it is first necessary to declare the 
library module entry point IHESARC: 

DCL IHESARC ENTRY (BINARY FIXED) ; 

Once IHESARC has been declared, the 
return code can be set at any point in the 
program by the following CALL statement: 

CALL IHESARC (expression) ; 

The routine may be called as often as 
required- Each time, the expression will 
be evaluated and its value will be saved. 
On normal termination, the return code will 
be set to the latest value, modulo 4096. 
(On abnormal termination, the complete job 
would be terminated. ) 

If the facility is not used, a return 
code of zero will be passed. 



CHECKPOINT/RESTART 



Compatibility with_Release 11 Checkpoint/ 
Restart 



The major differences between Release 17 
and the earlier Release 11 version of 
Checkpoint/Restart are the increased number 
of Checkpoint/Restart features and the 
changed method the programmer must use to 
initiate a programmer-deferred checkpoint 
restart, or step restart- 



Introduction 



When a job step terminates because of, 
for example, an I/O error or a machine 
check, the programmer may require that 
processing begins again from a point w ithin 
the job step or, alternatively, from the 
beg i nn ing of the job step. This can be 
done by means of the IBM System/360 Operat- 
ing System Checkpoint/Restart facility- 
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Checkpoint/Restart is supported by the 
MVT and PCP supervisors, and provides the 
following features: 

Automatic step restart 
Automatic checkpoint restart 
Programmer-deferred step restart 
Programmer-deferred checkpoint 

restart 

If automatic checkpoint restart or auto- 
matic step restart is specified when using 
MVT, MSGLEVEL=1 must be specified in the 
JOB statement. 



Step, .Res tart s 



Programmer-deferred step restart enables 
the programmer to resubmit a multistep job 
and cause any number of steps to be 
bypassed, until the required step is 
reached, at which point execution commen- 
ces. Automatic step restart causes the 
excution of a job step which terminates 
abnormally to be recommenced from the orgi- 
nal starting point. 



£heckpoint_Res tarts 



Programmer-deferred checkpoint restart 
is the technique used if the job is to be 
discontinued, and resubmitted for checKpo- 
int restart by the user at a later time; 
automatic checkpoint restart is the tech- 
nique used if a restart at the last 
checkpoint taken is to be performed during 
the job immediately that the system recog- 
nizes that the job step has been terminated 
abnormally. Both checkpoint restart tech- 
niques require checkpoint __data, in order to 
carry out the restart operation. Checkpo- 
int data consists of all the information 
about a program at a point in its execution 
which can be used to recommence execution 
from that point. Multiple checkpoints can 
be preserved, or, alternatively, only a 
single checkpoint may be required, in which 
case each checkpoint is overwritten by a 
subsequent checkpoint. Deferred checkpoint 
restart can be performed at any of these 
checkpoints, if multiple checkpoints are 
preserved, or from the latest checkpoint, 
if it is the only checkpoint that is 
preserved. Automatic checkpoint restart 
will use only the last checkpoint taken. 
To create a checkpoint from within a PL/I 
program, code the statement 



CALL IHECKPT; 



at a strategic point in the program 
that any data sets used by the program 



such 
can 



be repositioned by the restart program to 
the positions held at the time the checkpo- 
int was taken. 

Note; The CALL IHECKPT statement must not 
be executed in a multitasking environment. 

When the CALL IHECKPT statement is exe- 
cuted, a checkpoint data set is created, 
for which a unique name or checkid is 
generated by the system. The checkid is 
displayed on the operator's console for 
each checkpoint taken. The checkid for a 
particular checkpoint data set which is to 
be used to restart execution of the program 
should be noted, and later used to identify 
the data set. The checkpoint data set is 
sequential only, and may not be a member of 
a partioned data set. 

A DD statement with the ddname SYSCHK 
must be provided in the job stream for each 
step which produces checkpoints. This DD 
statement contains the specifications for 
the checkpoint data set. The parameters 
for this statement are given in Figure 24. 

The SYSCHK DD DISP parameter depends on 

whether there is a single checkpoint or 

whether multiple checkpoints are required. 
For a single checkpoint code 
DISP=(NEW,KEEP) , for multiple checkpoints 
code DISP=( MOD, KEEP). 



Single Checkpoint 



With a single checkpoint, the informa- 
tion stored at a checkpoint overwrites the 
information stored by any previous checkpo- 
int; thus only the latest checkpoint infor- 
mation is available. 



Multiple Checkpo int s 



The information for a checkpoint is 
stored after the information for a previous 
checkpoint; thus all the checkpoints taken 
are available for a restart. 

The other checkpoint/restart techniques 
mentioned, automatic step restart and 
programmer-deferred step restart, do not 
require either the CALL IHECKPT or SYSCHK 
DD statements. (Automatic step restart 
causes a step to be reexecuted immediately 
if it is terminated abnormally; programmer- 
deferred step restart permits the job to be 
resubmitted, but any job steps preceding 
the step to be reexecuted are bypassed, 
permitting the immediate restart of the 
step. ) 
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Parameter 



DSNAME= 



VOLUME= 



UNIT= 



DISP= 



SPACE= 



DCB= 



Tape, Drum, Disk 



Single checkpoint 



j Multiple checkpoints 



Any name 



Volume number or other reference 



2400, 2400-2, 2301, 2311, 2314, 2321 etc. 



(NEW, KEEP) 



| (MOD, KEEP) 

.JL 



Provided by formulas for direct-access devices 



(TRTCH=C) if UNIT=2400-2 



* The space allocated on a direct-access device must be 
sufficient for the job-step requirements together with 
the system blocks. In effect, this means that it might 
have to be as much as one and a quarter times main 
storage or region size. For example, a 256K machine or 
region might require 10 cylinders on a 2311 disk pack. 
The amount required is derived from the formulas provided 
i n IBM System/360 Operati ng System: S torage Estimates . 

A secondary quantity can appear in the SPACE parameter of 
the SYSCHK DD statement. However, if it is specified, it 
is not used. 

Figure 24. Basic Parameters for the SYSCHK DD Statements 



Automatic checkpoint restart is 
specified implicitly by the execution of a 
CALL IHECKPT statement. 



The remaining checkpoint restart fea- 
tures are controlled from the RD (Restart 
Definition) parameter, which can be speci- 
fied in either a JOB statement or an EXEC 
statement. The settings of the RD parame- 
ter are listed below: 

RD [.procstep] = {RjNC|NR]RNC} 

where: 



RNC (restart, but 
no checkpoints) 



K£23££rc ime .£~jgf erred 
£^§£]S£2illt restart . 

requests automatic 
step restart and 
totally suppresses 
the execution of the 
CALL IHECKPT 
statement. 



Notes : 



R (restart) 



requests automatic 
step restart. 



NC (no checkpoint) totally suppresses 

both the execution 
Of the CALL IHECKPT 
statement, and the 
implicit automatic 
checkpoint restart. 



NR (no restart) 



Checkpoints may be 
written, but auto- 
matic checkpoint re- 
start is inhibited. 
Specif y this 
parame ter for 



An RD parameter coded in a JOB state- 
ment overrides one coded in an EXEC 
statement. 

If the RD=value is coded in an EXEC 
statement for a cataloged procedure, 
it applies to all the steps within the 
procedure. RD. procstep=value can be 
coded instead of RD=value; it then 
applies only to the specified proce- 
dure step. RD.procstep=value can be 
coded for each step in the cataloged 
procedure, in procedure step order. 

The CALL IHECKPT statement causes a 
request for automatic checkpoint 
restart and overrides the request for 
automatic step restart, if the parame- 
ter RD=R has been specified. 

RD=NC and RD=RNC are provided to sup- 
press the execution of a CALL IHECKPT 
statement which is contained in a 
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program to be executed, but is not 
required for a particular job. 

5. RD=NC and RD=NR have no effect on a 
step in which there is no CALL IHECKPT 
statement to be executed. In this 
case RD=RNC has the same effect as 
RD=R, specifying automatic step 
restart. 

6. If no RD parameter is specified, auto- 
matic step restart is suppresed but an 
automatic checkpoint restart can occur 
if a checkpoint is taken. 

7. The RD parameter is ignored when the 
MFT II supervisor is used. 



Restarts 



Automatic restarts are specified in 
RD parameter described previously. 



the 



Programmer-deferred restarts are per- 
formed by resubmitting the deck containing 
the job control statements for the original 
job, with the JOB statement containing a 
RESTART parameter to specify that a restart 
is required, and how it is to be performed. 
The RESTART parameter specifies the step to 
be restarted, and, if a checkpoint restart 
is required, the checkpoint identity, i.e., 
checkid, of the checkpoint data set to be 
used. It is specified as follows: 



RESTART= ( 



stepname 
stepname. procstep 



!■• 



checkid] ) 



If the restart is a programmer-deferred 
step restart, the checkid information must 
not be specified, and the enclosing paren- 
theses may be omitted. The stepname param- 
eter identifies the step in the job to be 
restarted. The form stepname. procstep is 
used if the step is in a cataloged proce- 
dure. The form *** can be used to indicate 
that the first step in the job is to be 
restarted. (The first step can be a cata- 
loged procedure step. ) If a programmer- 
deferred checkpoint restart is to be 
performed, the checkid information should 
be present and correspond to the checkid 
generated for the appropriate checkpoint 
data set by the system; this data set must 
be available, and specified to the job in a 
SYSCHK DD statement. The SYSCHK DD state- 
ment must appear after the JOB statement, 
but before the EXEC statement for the first 
step in the job. If JOBLIB DD statements 
are present, the SYSCHK DD statement 
appears after them. This SYSCHK DD state- 
ment must have the disposition parameter 
coded either as DISP=( OLD, KEEP) or as 
DISP=(OLD,PASS) . 



DATA SETS FOR PROGRAMMER-DEFERRED 
CHECKPOINT RESTARTS 



To perform a programmer-deferred 
checkpoint restart, the data sets open at 
the time that the checkpoint was taken must 
be available for repositioning for use by 
the restarted step. All the ED statements 
used for the original job step must be 
present in tne restart job step. A second 
SYSCHK DD statement, as orginally supplied, 
must also be present to specify the 
checkpoint data set for the restarted step. 



£§£^_iOEHt_^hen_Using_PCP 



A restarted program may require the 
omission of a certain number of cards since 
the system cannot reposition a data set 
read from a card reader. The user should 
omit any cards which were read prior to the 
checkpoint from which the restart is to be 
performed. 



SYSIN 



A SYSIN data set will be repositioned 
correctly to the position it occupied when 
the checkpoint was taken. If the card 
input is used under a PCP system, it will 
not be repositioned. The position is 
achieved by bypassing the number of cards 
that were processed when the checkpoint was 
issued. Care must be taken if the data set 
needs to be changed; in this case the new 
data set must contain some dummy cards up 
to the point to be reached for reposition- 
ing, to replace any data cards which are 
taken out, modified, and replaced in the 
data set at or beyond the repositioning 
point . 



SYSOUT - PCP 



If a PCP system is used in which output 
for the SYSOUT data set is transmitted 
directly to a printer or card punch, a 
checkpoint taken while the output file is 
open causes the restarted program to pro- 
duce output on SYSOUT from the point in 
execution at which the checkpoint was 
taken. 

If the SYSOUT data set is written onto 
an intermediate tape, the tape is reposi- 
tioned so that records written after the 
checkpoint are overwritten by records from 
the restarted program. 
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If the SYSOUT data set is on tape, and 
has been opened and closed prior to the 
checkpoint, and is then reopened by the 
restarted program, the original SYSOUT data 
set is preserved, and the new data is 
written immediately after it. 



access a record from one of the data sets, 
and a WRITE statement to overwrite the 
corresponding record on the output data set 
with the updated record. 



SYSOUT - MVT 



MULTITASKING 



If an MVT system is used, in which 
SYSOUT data sets are written onto a direct- 
access device for output by the system 
output writer, the output is produced up to 
the point at which the abnormal termination 
occurred. The putput produced by the 
restarted program is written on a new 
SYSOUT data set which is opened at the 
point reached by the checkpoint, and con- 
tains records written from that point. 
This can cause duplication of output for 
the part of the processing which is repeat- 
ed until the point of failure of the 
original job step is passed. 



PRESERVATION OF DATA SETS 



In PL/I multitasking, a number of tasks, 
each of which can have a different priori- 
ty, can exist within the execution job- 
step. Control is given to the task that 
has the highest priority and is not waiting 
for any reason. If there are two or more 
tasks with the same priority, control is 
given to the first one in the system queue. 
Thus multitasking allows the programmer to 
make fuller and more efficient use of 
machine time, by reducing the time during 
which the CPU is waiting or the I/O devices 
are not used. It allows him to exploit the 
full range of PL/I language features, and 
thus to arrange his program to be as 
flexible. and effective as possible. 
Lastly, it allows the program to which it 
can be applied to be coded more easily. 

This section describes multitasking with 
regard to: 



Temporary Data Sets 



1. 



System and implementation 
ments. 



require- 



A job step which produces temporary data 
sets cannot be restarted. Temporary data 
sets with no dsname, or with a dsname of 

the form ££ , cannot be preserved. 

However, temporary data sets can be pres- 
erved for restarts if the conditional form 
of the DISP parameter is used, and provid- 
ing that permanent dsnames have been speci- 
fied. The conditional DISP parameter in 
the DD statements for temporary data sets, 
e.g., DISP= (NEW, PASS, KEEP), permits the 
data set to be passed (or deleted) at the 
normal end of the job step, or to be kept 
if the job step terminates abnormally. 



2. Management of multitasking in planning 
and executing a program. 

Multitasking is a sophisticated feature 
and will only give satisfactory results 
when used correctly. Provided the user 
understands the concepts involved and 
arranges his program accordingly, he will 
be able to obtain the full advantages of 
this facility. 



MULTITASKING REQUIREMENTS 



Updated Data Sets 



System/360 Requirements 



Direct-access UPDATE data sets which are 
updated by use of the REWRITE statement can 
prevent successful restarts because of 
changes to records taking place after the 
last checkpoint and before abnormal termi- 
nation of the job step. A restart in such 
circumstances can cause an updated record 
to be re-updated, giving incorrect results. 
To avoid this situation, two identical data 
sets of the same file should be used, one 
for input and one for output, and process- 
ing performed using a READ statement to 



A storage capacity of at least 256K 
bytes is required for multitasking. 



Operating System Requirements 



PL/I multitasking uses the MVT system. 
A PL/I program compiled with the TASK 
option and executed under the MFT or PCP 
systems will terminate abnormally. (For 



Managing Programs 87 



details of this and other control programs 
see the section, 'System/360 Operating 
Requirements'). All the tasks exist within 
the same job step; the priorities for these 
tasks exist only within the job step and 
can be varied over a range that is deter- 
mined by the job-step priority. PL/I is 
not concerned with establishing priorities 
between jobs or between job steps. 

The minimum PL/I multitasking overhead 
in space and execution time, over and above 
that resulting from a single-task PL/I 
program, is: 

Space: About 35 00 bytes plus 2K bytes 
for each subtask attached 

Time: About 70 milliseconds per task 
attached on a model 40 



MULTITASKING MANAGEMENT 

There are a number of topics that must 
be fully understood for successful 
multitasking management. These are: 

1. Programming considerations 

2. Use of priorities 

3. I/O handling 

4. Task termination. 

These topics are discussed briefly here; 
further information is provided by the 
diagnostic messages. 



Programming Considerations 



Programming Requirements 



Compiler_Levelj_ Multitasking requires a 
Version 4 PL/I (F) compiler and a Version 4 
PL/I library. Programs based on earlier 
versions can only be executed in a multi- 
tasking environment if recompiled with the 
TASK option (see below); even then subpro- 
grams in these programs may need rearrang- 
ing to execute successfully. 



Procedure Ojgt ions j_ All programs and exter- 
nal compilations that are to be executed in 
a multitasking environment must have been 
compiled with the TASK option in the exter- 
nal PROCEDURE statement. For example: 

X: PROC OPTIONS (MAIN, TASK); 

A CALL statement with the EVENT, PRIORITY 
or TASK options also requires a multitask- 
ing environment; the TASK option should, 
therefore, be specified for the external 
procedure. If it is not, it is assumed by 
default. 

Use of the TASK option causes the PL/I 
library multitasking modules, instead of 
the single-task modules, to be link-edited 
into the load module. The load module thus 
contains multitasking modules only when 
multitasking is required. 

Combination with other_ la nguages : When a 
routine in System/360 assembler language is 
to be used in multitasking, the DSA 
obtained in it must be at least 108 bytes 
long. (The minimum for a DSA in a non- 
multitasking environment is 100 bytes). 
PL/I library routines used in multitasking 
must be those designed for multitasking, 
for example, IHEITH, IHETSA. 



A task may lose control under any of the 
following circumstances: 

1. Termination 

2» I/O operations 

3. A task is attached with a higher 
priority than the current task 

4. Use of the PRIORITY pseudo-variable 

5. A higher- priority task may come out of 
a wait state or may complete I/O 

6. Use of the DELAY or WAIT statements 

E vent Option: Only one task at a time can 
wait on a particular event. If a situation 
occurs where two or more tasks wait on the 
same event, a diagnostic message is provid- 
ed. This kind of situation can easily 
occur; for example: 

CALL X TASK (A) ; 
CALL X TASK (B) ; 

If no event is explicitly declared in X, 
then, if X contains a WAIT statement, both 
tasks may be waiting for the same event. 

Variables^ The scope of variables must be 
watched carefully in a multitasking pro- 
gram. A variable that has not been expli- 
citly declared may be altered unpredictably 
when control passes from one task to anoth- 
er. For example: 

COMPLETION (ASSIGNMENT) = 'O'B; 

A = 1; 

CALL A TEST(A) TASK ( ONE ) ; 

WAIT (ASSIGNMENT) ; 

A = 2; 

CALL A TEST (A) TASK (TWO); 
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A_TEST; PROC(PARM); 

DCL VARIABLE FIXED BINARY; 
VARIABLE = FARM; 

COMPLETION (ASSIGNMENT) = * 1'B; 
IF VARIABLE = 1 THEN DO; 



The WAIT statement ensures that the 
program must wait for the task to assign a 
value to a variable known only to A_TEST, 
and then set the event 'ASSIGNMENT' com- 
plete. If the WAIT statement was not used 
then TASK (ONE) FARM would be overwritten by 
TASK (TWO) PARM, then A may possibly have 
the value 2 before the assignment to VARIA- 
BLE, in which case the statements following 
THEN DO would never be executed. 

2Nz.HHitSj_ If there is an ERROR ON-unit in 
a task, and the condition to which the 
ON-unit applies is raised in a subtask of 
that task, a GOTO out of the ON-unit will 
also raise the ERROR condition,, causing the 
ERROR ON-unit to be reentered repeatedly in 
a loop, because the GOTO label will not be 
known to the attached subtask- This prob- 
lem is avoided by using a separate ERROR 
ON-unit in the subtask with a GOTO label 
that is known to the subtask. For example: 

MAJOR: PROC OPTIONS (MAIN, TASK); 
ON ERROR GO TO FINISH; 
CALL A TASK; 



A: PROC; 

ON ERROR GO TO FINISH; 
SIGNAL ERROR; 



END A; 



FINISH: END MAJOR; 



CHECK_Conditionj_ 
program, the use 
not not carefully 
obtained may be un 
executed with the 
duce different res 
not using CHECK, 
CHECK in a program 
which it occurs 
to lose control, 
regains control, s 
have new values. 



If, in a multitasking 
of the CHECK condition is 
synchronized, the results 
predictable. A program 

CHECK condition may pro- 

ults to the same program 

since the presence of 

may cause the task in 
to wait for I/O and hence 
When this task eventually 
ome of the variables may 



SNJP option in. ON Unit: If an entry point 

has been called with the TASK option speci- 



fying a task name, then the entry point in 
the SNAP print-out is followed by the task 
name in brackets. 



Uger Requested Dump : A useful debugging 
feature is the ability to obtain a storage 
dump at any point in the program. 

A dump is obtained by the statement: 

CALL dump identifier t (argument) ] 

The dump identifier is one of the fol- 
lowing 

IHEDUMP - dump all core associated 
with active tasks, and termi- 
nate all tasks 

IHEDUMJ - dump all core associated 
with active tasks, and con- 
tinue processing 

IHEDUMT - dump all core associated with 
current task only, and termi- 
nate this task (and its 
subtasks) 

IHEDUMC - dump all core associated with 
current task only, and con- 
tinue processing. 

When IHEDUMJ or IHEDUMP is specified, 
the contents of the dump may not necessari- 
ly be the contents of main storage at the 
time when the CALL statement was executed. 
This is because while the dump for one of 
the tasks is being written on an output 
device, the other tasks are still being 
processed. Contempory dumps can be 
obtained by use of the WAIT statement. 

To ensure that a complete dump is pro- 
vided, a WAIT should be given to prevent 
the task being terminated before the dump 
is complete. 

If a PL1DUMP DD card has been supplied a 
standard OS/36 SNAP dump will be printed; 
if the identifier is IHEDUMP or IHEDUMT 
there will be one dump for each active 
task. The dump will include information 
such as register values, load list, con- 
tents of PIE, and storage dump. To help 
the user interpret the dumps, a directory 
is printed out at the start of each dump. 
This directory includes: 

1. The task name and priority, and the 
attaching statement, if available. 

2. The contents of the SYSPRINT file 
buffers, if the file is open. 

3. The name of the files currently open, 
with the addresses of the relevant 
control blocks. 
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4. The name of the current file. 

5. The addresses of the save areas and of 
other areas of special interest. 

The argument in the CALL statement is 
optional; if it is used the dump identifier 
must be declared as ENTRY {FIXED BINARY). 
The argument is an expression that is 
evaluated at execution-time; the result is 
a fixed binary integer that appears in the 
heading of the dump. This integer must be 
in the range to 127, a number outside 
this range is replaced by 127. 

If no DD card is supplied, or if an 
unrecoverable error is deteted during the 
output, e. g, incorrect chaining of save 
areas, then a standard operating sytem 
ABEND dump will occur, and will terminate 
the job step. 

For more information on storage dumps 
and the information they provide, see IBM 

§YStem/36 0_Operating_Systemj Messages, Co m- 

oletion Codes and Storage Dumps, Fo rm 

c28-66_:n._ 

B§tarn_Codesj_ These can be set by use of 
the statement CALL IHETSAC. Return codes 
can be set in the major task. 



Use of Priorities in PL/I 



The priority associated with a particu- 
lar job is supplied by the programmer, 
using the PRTY parameter in the JOB state- 
ment. The job priority can have any value 
from to 14 inclusive; the higher the 
value the nigher the priority. 

This priority determines the initial 
priority of the major task in the PL/I 
program, using the formula: 

p=<16*(job priority)) + 10 



The absolute range 
this formula is 10 
range for a particular 
ro a value that depen 
ty. This value is no 
priority of the major 
maximum priority that 
program can have. If 
create a task priorit 
maximum priority, the 
at the maximum priorit 



of values provided by 
to 234 inclusive; the 

program is from 10 
ds on the job priori- 
t only the initial 

task, it is also the 
any other task in the 
an attempt is made to 
y greater than the 
task will be executed 

y- 



er or smaller than its attaching task or of 
the major task, provided that this priority 
is within the limits given above. A prior- 
ity can be changed within a program but 
only when it is the priority of the current 
task or of an immediate subtask of the 
current task. 

A priority can be assigned to a task 
variable before the variable is associated 
with an active task„ If the task is 
attached without the PRIORITY option, the 
priority has the value that was assigned to 
the task variable. 



These conventions must be 
carefully when the PRIORITY ps 
function or option is being us 
late the priority of a task. 
lar, the effect of the maximum 
restricting the manipulation 
noted. In the example given 
assumed that none of the omitt 
can cause transfer of control 
wait situation. 



interpreted 

eudovariable, 

ed to manipu- 

In particu- 

priority in 

should be 

below, it is 

ed statements 

or create a 



In the example, control passes through 
the program to statement 12. Here task T1 
is attached with a priority of 45; this is 
greater than the maximum priority, so T1 is 
given the maximum priority, 42. As this is 
higher than that of T(Z)„ the major task, 
control at once passes to T1, that is, to 
statement 26. 

At statement 31, task T2 is attached 
with a priority of 38. Control remains in 
T1; statement 32 is executed. The priority 
of T2 is now the highest priority (r(Z)=35, 
T1=32, T2=38), so control passes at once to 
statement 41. After the execution of 
statement 47, the tasks have the priori- 
ties: T(Z)=35, T1=32, T2=30. Control now 
returns to T(Z), at statement 13. 

For example: 

//jobname JOB 123, JOHNSMITH, MSGLEVEL=1, 
PRTY=2 



Hence maximum priority=42 

Statement 
number 

1 Z:PROC OPTIONS (MAIN, TASK); 



6PRIORITY=-7; 



Priority 
or_value 

T(Z)=42 



The priority of any task — major, 
current or subtask -- can be reduced to 
zero; an attempt to create a priority of 
less than zero will result in the task 
concerned being executed at zero priority. 
An attached task can have a priority great- 



12 CALL Y TASK(TI) PRIORITY ( 1 0) ; 

13 



T(Z)=35 

T1 = 42 
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16 PRI0RITY=2: 

17 APRIORITY (T1) ; 

18 PRIORITY (TD=-9; 



25 END Z; 

26 Y:PROC; 



T(Z)=37 

A=-5 

T1=28 



T(Z)=37 
T1=<42 



31 CALL X TASK (T2) PRIORITY (-4) T1=42, 

T2=38 

32 PRIORITY=-10; T1=32 

33 B=PRIORITY (T2); NE 

NE 

NE 

NE 

40 END Y, NE 



41 X: PROC; 



T2 = 3S 



Use of the I/O EVENT option requires 
careful consideration. In multitasking, 
the waiting time in a given task is over- 
lapped by processing in another task. 
Using the EVENT option requires extra CPU 
time, which is obtained at the expense of 
time that could be used for processing 
another task. However, EVENT and WAIT can 
be used with advantage provided that a 
processing overlap can be guaranteed, that 
is, while one task is waiting for comple- 
tion of an event, another task is being 
processed. 

Another instance of the difficulties met 
when using an I/O event occurs in the use 
of WRITE statements in REGIONALO) files. 
If a REGIONAL(3) file with V- or U-format 
records is opened for DIRECT UPDATE or 
OUTPUT, and records are being added to the 
file, then under certain conditions, the 
program may not execute properly. These 
conditions are: 



47 PRI0RITY=-8; 



55 END X; 



T2=30 

NE 
NE 
NE 
NE 



Note; T(Z) is the priority of the major 
task 
NE=Not executed 

In this program, the main procedure Z 
terminates normally, while the procedure Y 
and X terminate abnormally. This is 
because: 

1. The value of the PRIORITY pseudovaria- 
ble specified in procedures Y and X is 
such that it causes control to be 
transferred out of these procedures, 
leaving several statements in the pro- 
cedure unexecuted.. 

2. There is no statement in the program 
that causes either procedure to be 
re-entered before the main procedure 
is terminated. 

Only the priorities of the current task 
and of an immediate subtask of the current 
task can be determined directly. The cal- 
culation of priorities in PL/I is relative,, 
not absolute; absolute values, including 
that of the major task, are not easily 
available. 



^2_itendlinc[ 



ZY^NT__02tion_j_ An I/O event must be waited 
for in the task that initiated it. 



If two or more tasks are simultaneously 
attempting to add records to the same 
track of the data set, and at least one 
of the WRITE statements concerned has 
the EVENT option, then if the WRITE 
statements are not correctly synchron- 
ized, the results are unpredictable. 

This difficulty can be avoided in sever- 
al ways : 

1. The EVENT option should not be used on 
such WRITE statements 



2. 



Such WRITE statements should 
fined to one task 



be 



con- 



3. Use of non-I/O EVENT variables and 
WAIT statements to synchronize the 
WRITE statements in the various tasks 

SE2UENTIAL_Filesj. Use of a SEQUENTIAL file 
other than SYSPRINT in more than one task 
can present difficulties. For example, a 
task may be interrupted in the middle of a 
PUT statement. If, in the task that gets 
control, another PUT statement is executed 
on the same file, the result, at best, will 
be garbled fields in the output buffer and, 
at worst, will be changes to the internal 
control blocks so that the original task 
may not continue to execute properly and 
will probably terminate abnormally. Again, 
in the updating of a SEQUENTIAL RECORD 
file, a REWRITE will replace the last 
record read (or waited for) irrespective of 
which task read it. Suitable use of event 
variables and WAIT statements will avoid 
these situations, but the best solution is 
to keep all references to a SEQUENTIAL file 
to within a single task. 

Only one file should sequentially create 
a data set on a direct-access device or a 



Managing Programs 



91 



tape volume. If two or more files are 
writing on the same sequential data set on 
a direct-access device, each file will 
write on the data set independently of thes 
others, and records written by one file* 
will be overwritten by records from another 
file. Similarly, if two or more files 
attempt to write on a sequential data set 
on the same tape volume, the program will 
terminate abnormally. To avoid this, a 
file should be opened in a common ancestor- 
task of those using the file name. 



In sequential-a 
cular data set 
only one file at a 
in PCP or MFT two 
sequential output 
having the same 
records written by 
written by the rec 
and the job may 
If the MVT syst 
records will be 
will not be mixed 



ccess operations a parti- 
should be referred to by 
time in a program. If 
or more files opened for 
refer to two data sets 
SYSOUT class then the 
one file will be over- 
ords from the other file, 
be abnormally terminated, 
em is being used, the 
written separately, and 
or overwritten. 



If two or more files opened for sequen- 
tial access refer to two data sets related 
by, for example, having the same magnetic 
tape device or the same data set name, then 
the records will be overwritten whatevei: 
the system used. 

Since error messages are written on the 
3YSPRINT file, it should be opened in the 
major task. Otherwise SYSPRINT will be 
opened in each task, and the error messages 
may be overwritten or lost. 



The use of SYSPRINT 
Files in multitasking is 
The implementation uses 
no synchronize operations 
and error messages) on the 
of this is to make PUT 
SYSPRINT file longer to e 
statements on other PRINT 



for large STREAM 
not recommended., 
system facilities 
(PUT statements) 

file; the effect 
statements on the 
xecute than PUT 
files. 



EXCLUSIVE_Filesj_ If a record of a REGIONAL 
(2) or (3) EXCLUSIVE file is referred to: 

1. More than once in a task, or 

2. By more than one task 

then the same region number must be speci- 
fied in each KEY option. 

Synchronization : I/O synchronization means 
avoiding operations on a given data set by 
two or more tasks at the same time. If 
user I/O synchronization is inadequate,, 
then either a system completion code of 00 1 
is given or the results are unpredictable.. 

If a task terminates abnormally while 
I/O operation on a file is in progress in 
an attached task, and later the same file 



is accessed in another task, the results 
may be unpredictable. 

System completion codes 301 and 001 are 
returned under the following conditions: 

301 is returned under one of two circum- 
stances: 



Synchroni zation 
program 



error in PL/I 



2. An attaching task terminates 
abnormally while an attached task 
is still active 

The first situation occurs if an 
attaching task attempts an I/O opera- 
tion on a file on which an attached 
task is already performing an I/O 
operation. Use of EVENT and WAIT can 
eliminate this problem. 

The second situation occurs when an 
attached task is performing an I/O 
operation by means of QSAM and the 
attaching task terminates abnormally 
(due to, for example, a source program 
error) . The attaching task issues a 
WAIT to the ECB (event control block) 
associated with the file, in order to 
allow the I/O operation to complete 
before the file is closed. But the 
attached task has already issued a 
WAIT for the same ECB; as only one 
WAIT can be issued for an ECB, the 
operating system terminates the pro- 
gram abnormally and the completion 
code is returned. 

001 Irrecoverable I/O error caused by 
unsynchronized access to data set from 
more than one task, or from more than 
one file. 



Unpredictable results may occur when two 
tasks are performing simultaneous opera- 
tions on the same bit string or character 
string. Unpredictable results may also 
occur when an operation involving an unal- 
igned bit string is taking place in one 
task at the same time as an operation 
involving data, which is not necessarily 
bit data, whose storage is contiguous with 
that of the bit string, is taking place in 
another task. The occurrence of this prob- 
lem is likely to be extremely infrequent. 
However, if it does occur, the WAIT state- 
ment and COMPLETION pseudo-variable should 
be used when multiprocessing to avoid such 
results. The following examples indicate 
cases which may produce unpredictable 
results because the attaching task and 
subtask are executing simultaneously. 
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Example 1 : 



MAIN: PROC OPTIONS (MAIN, TASK) ; 
DCL C CHAR (3) VARYING INITC1*); 
CALL A EVENT (E) ; 
C=C I | ' 2 " ; 
WAIT(E) ; 

A : PROC ; 

C=C| |'3'; 

END; 
PUT DATA(C); /*THE VALUE OF C MAY BE 
■12" OR ' 13 f OR ' 123* 
OR , 132 1 */ 
END MAIN; 

Example 2; 

MAIN: PROC OPTIONS (MAIN, TASK) ; 
DCL 1 A, 2 B CHARM) INITIAL( ■ X' ) , 
2 C BIT(3) UNALIGNED 

INITIALS 11V ), 
2 D DEC FIXED(5,0) INITIAL* 0); 
CALL SUB EVENT (E) ; 
C=' 101'B; 
WAIT(E) ; 

SUB: PROC; 
B='Y' ; 
D=6; 
END; 
PUT DATA(A); / + THE VALUES OF B, C f 
AND D MAY BE 
INCORRECT*/ 
END MAIN; 



Task Termination 



Normal_TerminatiQn^ If a task terminates 
normally with active subtasks, then: 

1. An indefinite wait situation might be 
created. For example, a task K (with 
subtasks I and M) might itself be a 
subtask of a task A. If I and M 
contain events that are waited for in 
A then, if K terminates normally while 
I and M are still active, the result 
is an indefinite wait in A. 

2. A warning message (IHE577I) will be 
put. out on SYSPRINT for each immediate 
active subtask of the task which is 
terminating normally. 

The user must be aware that this situa- 
tion — normal task termination with active 
subtasks -- can happen unexpectedly. For 
instance, a task that was not expected to 
lose control may do by some implicit I/O, 
as in the following example: 

A: PROC; 



Y = O: 



CALL B PRIORITY (10) ; 



B : PROC ; 



X = 5/Y; /+ZERODIVIDE*/ 



END B; 



END A; 

When ZERODIVIDE occurs in B, a consider- 
able amount of I/O may be necessary to load 
dynamically the error handling module to 
deal with the interrupt. This can allow A 
to gain control of the CPU; if A terminates 
normally before 3 can regain control, B is 
terminated abnormally. 

It is advisable to wait for subtasks to 
terminate 'before terminating any block in 
the attaching task. Terminating such a 
block, however, can be useful as it pro- 
vides a means of terminating a subtask that 
is being waited for. 

If a subtask is terminated when it has 
active subtasks, the completion value of 
these subtasks will be unchanged i.e., o, 
and their status values will be set abnor- 
mal. 

Abnprmal^Terminatign: In addition to the 
information on abnormal termination provid- 
ed in "Testing Programs", the following is 
relevent to multitasking: 

1. If a STOP statement is executed in a 
subtask, the FINISH condition is 
raised in the subtask, not in the 
major task. 

2. If the EXIT statement is executed in a 
subtask, the subtask and all subtasKS 
attached by it are terminated, and the 
status of the event Variable in the 
subtask is set abnormal (if it is not 
already so). 

3. If the ERROR condition is raised in a 
major task, and there is no ERROR ON 
unit or normal return from an ERROR ON 
unit, then the FINISH condition is 
raised and the program is terminated. 

4. If the ERROR condition is raised in a 
subtask, and there is no ERROR ON unit 
or normal return from an ERROR ON 
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unit, an error message is printed, but 
the FINISH condition is not raised. 
The subtask (and any subtasks attached 
to it) is terminated and the status of 
its event variable is set to abnormal. 

If the operating system detects an 
error, such as 'No core available', in a 
subtask, then the subtask is terminated, 
the status of its event variable is set 
abnormal, and a message describing the 
error is printed on SYSPRINT (if it is 
OPEN, otherwise on the console) . If the 
subtask has subtasks of its own, the status 
of these subtasks will be unchanged. The 
ERROR condition is not raised (because the 
task is already terminated before the PL/I 
Horary receives control), but, if a SYSA-- 
BEND or SYSUDUMP card exists, a dump will 
be produced. 



MULTIPROCESSING 



Multiprocessing permits two or 
tasks to be executed simultaneously. 



more 



On a machine with a single CPU, th? 
nighest priority task which is not in the 
wait state or not performing any I/O opera- 
tions is executed by the CPU. No other 
tasks can be executed at the same time. On 
a multiprocessing machine (i.e., a machine 
with more than one CPU) , the CPUs can 
execute tasks simultaneously. To obtain 
the best performance from a multiprocessing 
machine, the tasks should be kept as inde- 
pendent of each other as possible so that 
-hey can execute simultaneously without 
having to wait for operations to be com- 
pleted in another task. 

The following example is assumed to be 
executed on a two CPU machine with no other 
jobs executing at the same time so that 
both CPUs are available for execution. In 
the example, the major task attaches task 
T1, which has a higher priority than the 
major task, at the first CALL statement. 
After the CALL statement has been executed, 
the major task executes simultaneously with 
T1 even though one major task has a lower 
priority. At the second CALL statement* 
task T2 is attached, again with a higher 
priority than the major task. In this 
case, after the CALL statement has been 
executed, T1 and T2, being the two highest 
priority tasks, execute simultaneously and 
the major task does not proceed unless T1 
or T2 performs some I/O operations or goes 
into the wait state. Assuming this does 
not happen, when T1 completes, a CPU is 
available for continuing the execution of 
the major task. The major task then exe- 
cutes simultaneously with T2 until the WAIT 



statement when (assuming that T2 has not 
completed by this time) it waits for the 
completion of T2 and terminates itself. If 
the major task did not wait for T2 to 
complete, then T2 would be terminated 
abnormally when the major task terminated. 



Example; 

Z: PROC OPTIONS (MAIN, TASK) ; 

PRIORITY = -5; 

CALL X TA3K(T1) EVENT(E1) PRI0RITY(2); 

CALL Y TASK(T2) EVENT(E2) PRI0RITY(2); 

X : PROC ; 



END X; 
Y: PROC; 



END Y; 



WAIT(E2) ; 
END Z; 



§y.2£h£2!2:Lz2;tion 



Synchronization of I/O is most important 
since the likelihood of simultaneous opera- 
tions on a given data set by two or more 
tasks is increased in multiprocessing. 
(See "I/O Handling" in this section.) 
Also, it is possible that an attaching task 
may complete execution before its subtask. 
Attaching a subtask with a higher priority 
than the attaching task does not ensure 
that the subtask completes first, since the 
attaching task may execute at the same time 
as the subtask although it has a lower 
priority. Hence, it is always advisable to 
weiit for a subtask to terminate before 
terminating the attaching task. 
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OBJECT PROGRAM MANAGEMENT 



Pseudo-Regis t e r Vector JPRV) 



The PRV is a task-oriented communication 
area; one PRV is established for each task 
or subtask. For details of the PRV format 
and use, see 'Appendix' C: Object Program 
Organization and Conventions' . 



PL/I SORT 



This feature provides an interface 
between a PL/I program and the System/360 
operating system Sort/Merge program. The 
user calls the PL/I library module IHESRT 
at the appropriate entry point; this in 
turn calls the Sort/Merge program by means 
of a LINK macro. Information defining the 
data to be sorted and the records in which 
this data exists is passed as arguments to 
the IHESRT module. 

The entry point selected depends on the 
source of tne records to be sorted and 
thoir disposition afterwards. Four circum- 
stances are possible: 

1. Records in a data set are retrieved 
and passed for sorting; the sorted 
records are placed in a data set. 

2. Records constructed or updated in a 
PL/I program or procedure are passed 
for sorting; the sorted records are 
placed in a data set. 

3. Records in a data set are retrieved 
and passed for sorting; the sorted 
records are passed to a PL/I program 
or procedure. 

4. Records constructed or updated in a 
PL/I program or procedure are passed 
for sorting; the sorted records are 
passed to a PL/I program or proce- 
dure. 

The retrieval of records from a data set, 
passing them to the sort program and plac- 
ing the sorted records in a data set are 
all performed by the PL/I program. Records 
constructed or updated in a PL/I program or 
procedure can be passed, after sorting, to 
the same PL/I program or procedure or to a 
different one. 

The records passed to the sort program 
are sorted a numoer of times until the 
required sequence is obtained. Each of 
these minor sorts is performed on the 
contents of selected fields within the 
record; up to twelve of these fields can be 



designated. This is adequate to ensure 
even long complicated records containing a 
small range of data types and values can oe 
correctly and successfully sorted. 

The sequence in which the records are 
placed is the System/360 collating 
sequence. This is described in IBM 

System/360 Operating_System_PL/I_Ref erence 

Cata^ Ke_y_w_o_:i;d_s_ and Character Sets^ Form 

The user must be familiar with the usage 
of the Sort/Merge program; full details of 

this are given in IBM^Sy stem/3 60 2E££3:ting 

System Sort/Merge^ Form C4 8-6 543. Brief 

information on some aspects, for example, 
record format, storage requirements, data 
set description, is provided here as a 
guide to the environment required, but this 
is not intended to supplant use of the 
Sort/Merge manual. 



PL/I Sort Environment 



Record format ; Blocked and unblocked fixed- 
and variable-length records can be passed 
to the sort program. Record size can vary 
over a wide range: 

Minimum: 18 bytes 

Maximum: about 32,000 bytes. The size 
for a particular application 
depends on the size of the main 
storage and on the type of 
intermediate storage used. 

Sort performance is improved if the input 
records are blocked. There are no restric- 
tions on block size; however, where possi- 
ble, large records should have small block- 
ing factors. 

Storage £§31ii.£ement.sj_ At least 15500 bytes 

of main storage are required .The amount of 
intermediate storage required (used for 
workspace and temporary storing of partial- 
ly sorted records) depends on the size of 
the input data set. The amount required 
for a particular application can be calcu- 
lated from formulas provided in the 
Sort/Merge manual. The number of devices 
required is: 

Minimum: Tnree tape units or one direct- 
access device 

Maximum: Thirty-two tape units or six 
direct-access devices. 

The devices used must not be mixed; either 
all tape units or all direct-access devices 
of the same device-type must be used. Tape 
units can be 7- or 9-track, or a mixture of 
both. 



Managing Programs 9 5 



If a 2314 disk storage device is used, at 
least six work files must be made available 
for the sort. 

If direct-access devices are used, then 
sort performance is improved if: 

1. Each data set is kept on a seperate 
device 



should use the DD statement //SYSCHK DD , . . 
etc., to identify the checkpoint data set 
to the restart program. Further 
information on the use of checkpoint 
restart is given in the section 
"Checkpoint/Restart," in this publication. 

User parameters specified for the SYSUT1 
DD statement should include: 



2. The number of data sets used is a 
minimum 

3. All data sets are the same length. 

S^££_§§t§l Input and output data sets must 
be accessed with the queued sequential 
access method (QSAM). 

The load-module execution step requires 
some or all of the following DD statements 
in addition to the DD statements for the 
PL/I program. 

//SORTIN DD Input data set 

//SORTOUT DD Output data set 

//SORTWK01 DD Data sets for work areas; 

//SORTWK02 DD from 3 up to 32 of these 

//SORTWK03 DD data sets can be used 
//SORTWKnn DD 



//SYSUT1 DD UNIT=(SYSDA, SEP=(SORTLIB, 
SYSLMOD, SYSLIN)) 

If both the following occur: 

//SYSOUT DD SYSOUT=A 

//SYSPRINT DD SYSOUT=A 

then, if the SYSOUT device is a tape 
storage unit, the user must take care that 
the two data sets do not use the same 
output device. Under MVT it can be avoided 
by specifying a different device class for 
each data set. 

SORTIN and SORTOUT are not always 
required; details are given in the descrip- 
tion of the various entry points to IHESRT. 
SORTCKPT, SYSUDUMP and PL1DUMP are' option- 
al, as is the number of SORTWKxx state- 
ments. 



//SORTLIB DD Sort program data set 

//SORTCKPT DD Sort checkpoint data set 

//SYSOUT DD System output data set 

//SYSLMOD DD These are required because 
//SYSLIN DD the sort program calls the 
//SYSUT1 DD linkage editor to select 
the appropriate routines 
for SORTLIB, to generate 
the sort program required 
by the PL/I program 

//SYSUDUMP DD Storage dump data sets, 
//PL1DUMP DD useful while the PL/I 

program is being debugged 

The parameters for all except two of these 

the particular 
sort. The two 



data sets depend on 
application requiring the 
exceptions are: 



//SORTLIB DD DSNAME=SYS1 . SORTLIB, DISP=OLD 

//SYSOUT DD SYSOUT=A 

DISP=SHR should be specified for the 
SORTLIB data if SORTLIB is to be used 
concurrently by more than one job. 

PL/I Sort checkpoints are written on a 
data set identified by the DD statement 
//SORTCKPT DD ... etc. A programmer- 
deferred checkpoint restart of a PL/I Sort 



If the PL/I program uses an IBM cata- 
loged procedure for its job control lan- 
guage, then SORTIN, SORTOUT and the 
SORTWKxx statements must be specified as 
GO. SORTIN, etc., because they are associat- 
ed with the PL/I program, not the sort 
program. On the other hand, SYSLMOD, SYS- 
LIN and SYSUT1 are associated with the sort 
program and therefore should be specified 
as given above and not as part of the 
cataloged procedure. 

The user requires either SYS1.LINKLIB 
(which contains the sort/merge program) or 
a private job library in which sort/merge 
has been placed. SYS1.LINKLIB is loaded 
automatically with IEMAA, but a //JOBLIB DD 
statement will be required for the job 
library. 



User Control of SORT ddnames 



For multiple invocations of SORT within 
a single job step, the standard ddnames of 
SORT (SORTIN, SORTOUT, SORTWK, SORTMODS, 
and SORTCKPT) can be changed by replacing 
the first four characters of the ddnames. 
This is achieved by adding an extra argu- 
ment to the end of the argument list in the 
CALL statement to IHESRT. The argument is 
a character string, which can be any 
length, but only the first four characters 
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are used to replace the letters SORT in the 
standard ddnames. 



If the string is null, the standard 
ddnames remain unchanged. If the string is 
more than four characters long, only the 
first four characters are used. If the 
string is from one x.o four characters long, 
then the first one to four characters in 
the standard ddnames are replaced. 

The first character in the string must 
be alphabetic otherwise either an OPEN 
error may occur in SORT or an error will 
occur during scheduling of the job step if 
an illegal ddname (e.g., 20RT) is found. 



The PL/I (F) Compiler 
variable number of ar 
entry name in separate 
Therefore a compilation 
tiple sorting operations 
CALL statements with the 
fy the ddnames set to n 
standard ddnames, and se 
character string for the 

Example: 



does not permit a 

guments to the same 

CALL statements. 

which invokes mul- 

must contain the 

argument to speci- 

ull ( * * ) when using 

t to the required 

modified ddname. 



TEST: PROCEDURE OPTIONS( MAIN) ; 

DECLARE IHESRTA ENTRY (CHAR, CHAR, 

FIXED BIN, FIXED BIN, CHAR) ; 
DECLARE STRING CHARACTERS) 

INITIALCPA' ) ; 
/♦INVOKE SORT USING STANDARD 

DDNAMES*/ 
CALL IHESRTA(ARG1, ARG2, ARG3, 
ARG4, •'); 



/♦INVOKE SORT USING MODIFIED 

DDNAMES*/ 
CALL IHESRTA(ARG1, ARG2, ARG3, 
ARG4, STRING); 



END TEST; 

In the first invocation of IHESRTA the 
following DD statements are required: 



//SORTIN DD ... 
//SORTOUT DD ... 

//SORTWK1 DD 

//S0RTWK2 DD ... 

In the second invocation of IHESTRTA the 
following DD statements are required: - 

//PARTIN DD ... 
//PARTOUT DD ... 
//PARTWK1 DD ... 
//PARTWK2 DD ... 



Sorting Record s fr om One Data Set to 
Another 



Suppose that a data set containing 4000 
logical records of the type shown in Figure 
24. 1 is to be sorted according to the 
values in four fields in each record: 



1 



PKDEC, a fixed-point decimal field; 
the contents are to be arranged in 
ascending order 

CHTER, a character field, in ascending 
order 



FLTNUM, a floating-point 
field, in descending order 



decimal 



4. 



BINNUM, a fixed-point binary field, in 
ascending order 



When the records are finally sorted, the 
contents of the field described above could 
be printed as : 



PKDEC 


CHTER 


FLTNUM 


BINNUM 


01 


BLACK 


1.034 


01 0B 


01 


BLACK 


1.034 


011B 


01 


BLACK 


1.033 


000B 


01 


BLACK 


1.033 


001B 


01 


BLACK 


1.033 


101B 


01 


ORANGE 


2.087 


010B 


01 


ORANGE 


2.087 


011B 


01 


ORANGE 


0.072 


101B 


01 


ORANGE 


0.072 


11 0B 


02 


BLACK 


1.029 

etc. 


001B 



r ~ T T T T T T T 

| | PKDEC J j FLTNUM j j BIN j j 

I II II INUMI | 
L J ___J J J J _JL J -J.-J J J J J JU J XJ J J i. J. J 

24 30 51 59 80 

r t t 1 

j j CHTER J | 

111 I 

L J J J J J _X_J J _i_J J J J J - J J J J J J J J 

80 102 110 160 

Figure 24.1. Figure- Length 160-byte Records, showing Fields on which Sort is to be Made 
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The information defining the data to be 
sorted and the records in which it exists 
is described in two sort program 
statements -- the SORT statement and the 
RECORD statement. 

The SORT statement describes a control 
word that defines the fields on which the 
sort is to be made. The control word 
consists of up to twelve control fields; 
each control field describes a field in the 
record to be sorted. The statement format 
is: 

SORT FIELDS=(b<,, 1, ,f,,S, , b n , l n , f n , S n ) , 

SIZE=m, SKIPREC=z f CKPT 

where 

b = first byte of field to be sorted. 

Binary data can start on any bit within 
a byte and is specified: 

7.2 Bit 2 in byte 7 

10.3 Bit 3 in byte 10 

All other data starts on a byte bounda- 
ry, which is specified as an integer.. 

1 = length (in bytes) of the control field. 
Since oinary data can start and end on 
any bit, its length is specified in the 
byte bit notation given above: 

2. 1 the length of the binary data 
field is 17 bits 

All other lengths are specified as 
integers. 

f = data type. The code for the various 
data types is: 



BI 
CH 
FI 
FL 
PD 
ZD 



Binary 
Character 
Fixed- point 
Floating-point 
Packed decimal 
Zoned decimal 



If all the control fields have the same 
data type, then f „....f n can be omit- 
ted from the control fields and 
FORMAT=x (where x is the data type) 
inserted after the right parenthesis 
and before the SIZE parameter. 

These sort data types correspond to the 
following PL/I data types: 



Sort 
BI 

CH 



PL/I 

BINARY 
BIT 

CHARACTER 



FI 

FL 

PD 
ZD 



FIXED BINARY 
FIXED DECIMAL 

FLOAT BINARY 
FLOAT DECIMAL 

FIXED DECIMAL 

PICTURE 



s = the order in which the contents of the 
field are to be sorted. The codes are: 

A ascending order 
D descending order 

m = the number of records in the input data 
set. If this number is not known 
precisely, an estimated total can be 
specified thus: 

SIZE=Em 

z = the number of records to be skipped 
before the sort begins. This allows a 
sort to begin at any point in a data 
set, omitting any records for which a 
sort is not required. 

CKPT A checkpoint is taken at several 
points in the sort program. 

The specification of these SORT fields 
is subject to the following restrictions 
and conventions: 

1- The total lengths specified in all the 
fields in one SORT statement must not 
be greater than 256 bytes. If binary 
data specifies part of a byte, the 
whole of that byte must be included in 
the length count. For example, a 
binary field starting at 11.3 and 
ending at 27.2 is 17 bytes long. 

2. All the fields specified by the con- 
.trol fields must be in the first 4092 
bytes of the record. 

3. The maximum length of a decimal field 
is 16 bytes; all other fields can oe 
up to 256 bytes long. 

The SORT statement for the records in 
the example is : 

SORT FIELDS=(2 4,6,PD, A, 1 02 , 8 , CH, A, 51 , 8 , FL, 
D,74.7,0.3,BI, A) , SIZE=4 000 

The RECORD statement describes the for- 
mat and length of the records to be sorted. 
The format is: 

RECORD TYPE=r, LENGTH= (1„ , 1 2 , 1 3 , 1* , 1 5 , ) 

where 

r = record formats The code is: 
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F fixed-length 
V variable-length 

1.,= length of each record in the input data 
set, as follows: 



F records 
V records 



record length 
maximum length 



The length must be the same as the 
LRECL value in the DCB parameter for 
the SORTIN data set; if it is not, then 
the LRECL value is taken. 

1 2 = length of each record to be handled by 
the sort program, as follows: 



F records 
V records 



record length 
maximum length 



If this value is not given in the 
RECORD statement, then it is assumed to 
be the same as 1-,. 

1 3 = length of each record in the output 
data set, as follows: 

F records record length 
V records maximum length 

If this value is not given in the 
RECORD statement, it is assumed to be 
1 2 . The value must be the same as 
LRECL value in the DCB parameter in the 
SORTOUT data set: if it is not, then 
the LRECL value is used. 

l u = minimum length of variable-length 
records in the input data set. 

If this value is not given, then it is 
assumed to be the greater of: 

a„ The minimum necessary to contain 
the control fields specified in 
the SORT statement, or 

b. the minimum physical-record length 
required by the operating system. 

1 5 = the most frequent record length occur- 
ing in a data set containing variable- 
length records. It is called the modal 
length. If this value is not given, 
then it is assumed to be the average of 
the minimum and maximum lengths of the 
records in the input data set. 

The specifications of these RECORD 
fields is subject to the following restric- 



tions and conventions; 



1. 



The lengths specified for variable- 
length records must include the four 
byte count field at the beginning of 
each record. 
When a direct-access device is used 



for intermediate storage, the record 
length must not exceed one track. 



3.. The record format must be the same as 
that specified in the RECFM 
subparameter in the DCB parameter for 
the SORTIN and SORTOUT data sets. If 
it is not, then the SORTIN RECFM 
specification is used. 



4. Values in the LENGTH parameter that 
are equal to those assumed by the 
program can be dropped from the oper- 
and. Values dropped from the right- 
hand end of the operands are simply 
omitted; values dropped at the begin- 
ning or middle of the operand must De 
indicated by commas: 

LENGTH=(l 9f l a > 
LENGTH=(1„, ,,U) 

The RECORD statement for the records in tne 
example is: 

RECORD TYPE=F, LENGTH=(160) 

For this application (sorting records 
from one data set to another) the PL/I 
library module IHESRT is entered at the 
entry point IHESRTA as follows: 

CALL IHESRTA ( argumen t fl , argument 2 , argument 3 , 
argument,) : 

where 

argument,, = a cnaracter-string expression 
representing the SORT state- 
ment. 

argument 2 = a character- string expression 
representing the RECORD state- 
ment. 

argument 3 = an arithmetic expression that 
on evaluation gives a fixed 
binary integer. This integer 
gives the amount of main stor- 
age available to the sort pro- 
gram. If this value is less 
tham 12,000 bytes, then 12,000 
is assumed. 

argument, = a fixed-binary variable of 
precision (15,0) that contains 
the value of the return code 
returned by the sort program: 

Sort successful 
16 Sort unsuccessful 

If the sort is unsuccessful, diagnostic 
messages are printed on the console listing 
or the listing of the system output file 
(SYSOUT or SYSPRINT). 
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To use this module in a PL/I program, 
IHESRTA is declared as an entry name with 
the appropriate parameters. IHESRTA is 
then called with arguments described above. 
Once called, it continues to pass records 
for sorting and placing the sorted records 
in a data set until either the specified 
number of records has been sorted or the 
sort is unsuccessful. In the latter case* 
the sort stops at this point. 

The value of the character-string 
expression for the SORT and RECORD state- 
ments has tne form: 

' bstatementb" 

The blanks at the beginning and end of the 
expression are always required. An embed- 
ded blank must occur between SORT and 
FIELDS, and between RECORD and TYPE; no 
other embedded blanks are permitted. 



When character-stri 
that are too long for 
PL/I source program, 
the following record, 
care that embedded bl 
tantly inserted at the 
such records; the va 
parameter must be take 



ng constants are used 
one record of the 

they are continued in 
The user must take 

anks are not inadver- 
beginning and end of 

lue of the SORMGIN 

n into consideration. 



A PL/I program to sort the records 
described above would require both the 
SORTIN and SORTOUT DD statements, as well 
as any others that are necessary. The 
source code could be: 

ALPHA: PROC OPTIONS (MAIN); 

DCL IHESRTA ENTRY(CHAR( 70) , CHARC28 ) , 
FIXED BINARY(31,0), FIXED 
BINARY(15,0)), 

SFIELD CHAR(70) , 

RFISLD CHARC28) , 

RETCDE FIXED BINARY( 1 5, 0) ; 

SFIELD=* SORT FIELDS= (24, 6 , PD, A, 102, 8 , 
CH,A, 51, 8,FL,D,74.7,0.3,BI,A), 
SIZE=4000 • ; 

RFIELD=» RECORD TYPE=F, LENGTH=( 16 0) * ; 

CALL IHESRTA(SFIELD,RFIELD, 45056, 
RETCDE) ; 

END ALPHA; 



placed in a data set, by using the entry 
point IHESRTB. This is invoked as follows: 



CALL IHESRTB (argument* , argument^, 
argument 3 , arguments, arguments) 



where 

arguments,i - «» = as for IHESRTA 

argument s = the entry name of the PL/I 
procedure supplying the records 
to the sort program. 



The PL/ I r 
point in the s 
exit. A use 
executable cod 
which control 
passed to a us 
sort program 
user exit for 
program to the 



ecords are passed to an entry 
ort program called a user 
r exit is a point in the 
e of the sort program at 
can be received from or 
er program that modifies the 
or uses only part of it. The 
passing records from a user 
sort program is E15. 



The procedure invoked by argument pass- 
es to the sort program a character-string 
representation of the record to be sorted. 
If the record is not in character-string 
form, it must be defined on a character 
string and then passed. This may lead to 
difficulties in the PL/I program. The 
language rules specify that the attributes 
of the defined and the base items must 
match exactly except for their lengths and 
that string overlay defining on an aggre- 
gate parameter is not permitted. The (F) 
implementation permits the use of differing 
attributes and of this type of overlay 
defining, and produces error-level diag- 
nostics when these situations occur. Suc- 
cessful link-editing and execution are pos- 
sible provided the condition codes on the 
appropriate EXEC statements are adjusted to 
allow the step concerned to be executed. 

In addition to the return code supplied 
by the sort program to the PL/I program, 
the PL/I program supplies a return code to 
the sort program that indicates whether 
there are any more records to be passed for 
sorting. This return code is set by one of 
the following statements : 



CALL IHESARC(n) ; 
CALL IHETSAC(n) ; 



(single-task programs) 
(multitasking programs) 



where n has the values: 



Sorting Records from a PL / I Program or 
Procedure onto a Data Set 



Records constructed or updated in a PL/I 
program or procedure can be passed to the 
sort program by means of a RETURN 
(expression) statement, and (when sorted) 



8 No more records will be passed 

12 Insert the record passed into the file 
to be sorted 

If the CALL IHETSAC(n) statement is to 

be used, the task option must be specified 

in the MAIN procedure statement. 
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The PL/I program supplying the records 
requires all the DD statements given above 
except the SORTIN DD statement. As there 
is no input data set, the SIZE parameter is 
not required. The code for a program 
supplying the records described above could 
be: 

BETA: PROC OPTIONS (MAIN); 

DCL IHESRTB ENTRY (CHAR ( 60) , CHAR( 28 ) , 
FIXED BINARY(31, 0), 
FIXED BINARY( 15,0), ENTRY), 
IHESARC ENTRY (FIXED BINARY), 
ENT15 RETURNS (CHAR( 160)), 
SFIELD CHARC60) , 
RFIELD CHAR (28), 
RETCDE FIXED BINARY (15,0); 
SFIELD=' SORT FIELDS= ( 24, 6, PD, A, 1 02, 8, CH, A, 

51, 8, FL,D, 74.7,0.3,31, A) "; 
RFIELD=' RECORD TYPE=F, LENGTH= ( 1 60 ) ' ; 
CALL IHESRTB ( SFIELD, RFIELD, 45056, RETCDE, 

ENT15) ; 
ENT15: PROC CHAR(160); 

DCL INPUT FILE RECORD DIRECT ENV 
( REGIONAL ( 3 ) ) KEYED, 
INREC CHAR(16 0) DEF INRECX, 
1 INRECX UNALIGNED, 
2 PADA CHAR (23), 
2 PKDEC FIXED DECIMAL (11), 
2 PADB CHAR(21), 
2 FLTNUM FLOAT (16) , 
2 PADC CHAR(13), 
2 BINNUM FIXED BINARYU6), 
2 PADD CHAR (26), 
2 CHTER CHAR(8), 
2 PADE CHAR(51), 
N STATIC FIXED BINARY (15,0) 
INIT(4000) ; 
IF N^=0 THEN DO; 

READ FILE (INPUT) INTO (INRECX) 

KEY (N) ; 
CALL IHESARC(12) ; 
N=N-1; 

RETURN( INREC) ; 
END; 

ELSE CALL IHESARC(8); 
RETURN; 
END ENT15; 
END BETA; 



Sorting Recordsfrom a gata S et into a PL /I 
Program or Procedure 



Records from a data set can be sorted 
and than passed as arguments to a PL/I 
program or procedure, by using the entry 
point IHESRTC. This is invoked by: 

CALL I HESRTC( argument 1# argument 2 , argument 3 , 
argument^, argument 6 ) 

where 

argument a - * = as for IHESRTA 



argument 6 = the entry name of the PL/I 
procedure to which the sorted 
records are to be passed. The 
user exit for this is E35. 

The records passed by the sort program 
must be in a character-string form. If 
this form is not the one required by the 
PL/I program, then the PL/I record must be 
defined on a character string. The same 
difficulties can be expected here as for 
IHESRTB. 

The return code passed by the PL/I 
program to the sort program, using the CALL 
IHESARC (n) or CALL IHETSAC(n) statement has 
the values: 

4 the record passed has been accepted, 
pass the next record 

8 stop passing records, even if there are 
still more to come. 

If no return code is passed to the sort 
program, then this program continues to 
pass records until all have been passed. 

All the DD statements described earlier 
may be used except the SORTOUT DD state- 
ment. 

If the records described above were 
retrieved from a data set, sorted and the 
passed to a PL/I program or procedure for 
printing on SYSPRINT, the code for the 
source program could be: 

GAMMA: PROC OPTIONS (MAIN) ; 

DCL IHESRTC ENTRY (CHAR(70), CHAR(28), 
FIXED BINARY(31,0), 
FIXED BINARY( 15,0), ENTRY) , 

IHESARC ENTRY (FIXED BINARY), 

SFIELD CHAR(70), 

RFIELD CHAR (28) , 

RETCDE FIXED BINARY ( 1 5, 0) ; 

SFIELD=* SORT FIELDS= ( 24, 6, PD, A, 1 02, 8 , 
CH,A,51, 8,FL,D,74.7, 0. 3,BI, A) , 
SIZE=4000 '; 
RFIELD=' RECORD TYPE=F, LENGTH= ( 1 60) '; 
CALL IHESRTC ( SFIELD, RFIELD, 45056, 
RETCDE, ENT35) ; 
ENT3 5: PROC (OUTREC); 
DCL OUTREC CHAR (160), 
1 OUTRECX DEF OUTREC, 
2 PADA CHAR (2 3), 
2 PKDEC FIXED DECIMAL(H), 
2 PADB CHAR (21) , 
2 FLTNUM FLOATU6), 
2 PADC CHAR (13) , 
2 BINNUM, 

3 NOBITA BIT(23) , 
3 BINNO BIT(3), 
3 NOBITB BIT (6) , 
2 PADD CHAR(26), 
2 CHTER CHAR(8) # 
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2 PADE CHAR(51), 
N STATIC FIXED BINARY(15 f 0) 
INITUOOO) ; 
IF Nt=0 THEN DO; 
CALL IHESARC(U) ; 

PUT FILE(SYSPRINT) SKIP EDIT(PKDEC, 
CHTER, FLTNUM, BINNO) (F(11),X(2), 
A(8),X(2),F(16,3).,X(2),B(3)); 
N=N-1 ; 
RETURN- 
END; 
ELSE CALL IHESARC(8); 
RETURN; 
END ENT3 5; 
END GAMMA; 



Supplying, Sorting, and Passi ng Back 
Records to a PL/I Procedure 



IF RETCDE=16 THEN DC- 
PUT FILE(SYSPRINT) SKIP LIST 
('SORT WAS UNSUCCESSFUL'); 
GO TO ENDA; 
END; 



ENT15: PROC CHAR(160); 

DCL INREC CHARC160) DEF INRECX, 
1 INRECX UNALIGNED, 

2 PAD A CHAR (23) , 

2 PKDEX FIXED DECIMAL ( 1 1 ) , 

2 PADB CHAR(21) , 

2 FLTNUM FLOAT (16) , 

2 PADC CHARCI3), 

2 BINNUM FIXED BINARY (16), 

2 PADD CHAR(26) ff 

2 CHTER CHAR(8)„ 

2 PADE CHAR(51) ; 



Records constructed or updated by a PL/I 
program or procedure can be passed to the 
sort program; the sorted records can then 
be passed back to the same PL/I program or 
procedure or to a different one. 

This requires the entry point IHESRTD, ac 
follows : 

CALL IHESRTD ( argument,, , argument 2 , 
argument 3 , argument H , arguments, 
argument 6 ) 

where 



(Code for generating records) 



IF I<=100 THEN DO; 

CALL IHESARCM2) ; 
1=1+1; 

RETURN (INREC) ; 

END; 
ELSE CALL IHESARC(8); 
RETURN ; 
END ENT15; 



arguments,,- <+ = as for IHESRTA 

argument 5 = as for IHESRTB 

argument 6 = as for IHESRTC 

Neither the SORTIN nor the SORTOUT DD 
statements are required for this entry 
point, nor is the SIZE parameter- A PL/I 
program to sort the records described ear- 
lier could be: 

DELTA: PROC OPTIONS (MAIN) ; 

DCL IHESRTD ENTRY( CHAR(60) , CHAR( 28 ) , 
FIXED BINARY( 31,0), 

FIXED BINARY( 15,0), ENTRY, ENTRY) , 
IHESARC ENTRY (FIXED BINARY), 
ENT15 RETURNS(CHAR(160))„ 
SFIELD CHAR(60) , 
RFIELD CHAR(28) , 
RETCDE FIXED BINARY (15,0); 
SFIELD=' SORT FIELDS= ( 24, 6„ PD, A, 

102, 8, CH, A, 51,8, FL, D, 7 4 . 7 , 
0.3,BI,A) f ; 
RFIELD=" RECORD TYPE=F, LENGTH= 
(160) '; 

CALL IHESRTD (SFIELD, RFIELD, 45056, 
RETCDE, ENT 1 5 , ENT3 5 ) ; 



ENT35: PROC (OUTREC) ; 

DCL OUTREC CHAR(160)„ 

1 OUTRECX UNALIGNED DEF OUTREC, 
2 PADA CHAR (23), 

PKDEC FIXED DECIMALdD, 
PADB CHAR (21) , 
FLTNUM FLOATU6), 
PADC CHAR (13) , 
BINNUM, 
3 NOBITA BIT (23), 
3 BINNO BIT(3), 
3 NOBITB BIT(6), 
2 PADD CHAR(26), 
2 CHTER CHAR (8) , 
2 PADE CHAR(51), 
N STATIC FIXED BINARY ( 1 5, ) INIT(I); 
IF N<=100 THEN DO; 

CALL IHESARC(4) ; 

PUT FILE(SYSPRINT) SKIP EDIT(PKDEC, 
CHTER, FLTNUM, BINNO) (F(1 1) ,X(2) , 
A(8),X(2),F(16,3),X(2),B(3)); 
N=N+1; 
RETURN ; 
END; 
ELSE CALL IHESARC(8); 
RETURN ; 
END ENT35; 
ENDA: END DELTA; 
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Use of PL/I SORT in a Mu l tit a sking 
Environment 



If the PL/I SORT is invoked from differ- 
ent tasks within a main PL/I procedure, 
i.e., two or more sorting operations are to 
be performed asynchronously by separate 
subtasks, the following restriction applies 
when messages output by the sort programs 
are to be listed on the line printer: the 
SYSOUT DD statements which specify the data 
set for the messages must not use SYSOUT= 
in the operand field; this operand field 
must specify an actual device, rather than 
the system output stream, for example: 

//SYSOUT DD UNIT=1403 

This restriction does not apply if the 
messages are to be printed on the console- 



DATA INTERCHANGE 



The facilities that allow non-PL/I data 
sets to be used with PL/I programs are now 
extended to include FORTRAN data. Pre- 
viously, the COBOL attribute (see 'The 
ENVIRONMENT Attribute* in Appendix B) pro- 
vided the only facility for data inter- 
change with a high-level language. Now, 
the ALIGNED and UNALIGNED attributes pro- 
vide a similar facility for FORTRAN, that 
is, they allow PL/I programs to use FORTRAN 
data sets. 

A FORTRAN unformatted data set consists 
of records which are simply the concatena- 
tion of individual internal data items 
without regard to alignment stringency. In 
general, the data construction in these 



records is equivalent to that of a PL/I 
UNALIGNED structure containing base ele- 
ments which are the same as the data items 
on the record- For example 



INTEGER * 4 
LOGICAL * 1 
REAL * 8 C 



WRITE (5) A f B, C 

The record written has the same format as 
the data in a PL/I structure of the form: 

DECLARE 1 R UNALIGNED, 

2 S FIXED BINARY, 

2 T BITC8), 

2 U FLOAT (16); 

There are, however, two exceptions: 



1. 



FORTRAN records may contain halfword 
binary data, which is not supported by 
the PL/I (F) compiler. Such data can 
still be read, however, (providing it 
is unsigned) by reading it into a 
character string of length 2, and then 
using UNSPEC to assign it to a PL/I 
FIXED BINARY variable. 



FORTRAN IOCS 
records into 
a technique 
fact that a 
transparent t 
Spanned reco 
the PL/I (F) 
TRAN records 
UNALIGNED str 



can split its logical 
several physical records, 

known as spanning. The 
record is spanned is 
o the FORTRAN programmer, 
rds are not supported by 
compiler. Unspanned FOR- 
can be read by PL/I using 
uctures. 



For use of the ALIGNED/UNALIGNED attri- 
butes, see 'Use of Storage' in the chapter 
'Programming Techniques." 
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PROGRAMMING TECHNIQUES 



The information in this section is 
divided into two main categories: the first 
part provides a list of the errors and 
pitfalls most likely to be encountered by 
users when first programming in PL/I; the 
second part lists various methods of 
improving the performance of a program,, 
together with some housekeeping points and 
additional hints. 



1. COMMON ERRORS AND PITFALLS 



This is a list of the errors and pit- 
falls most likely to be encountered when 
writing a PL/I source program. Some of the 
items concern misunderstood or overlooked 
language rules, while others result from 
failure to observe the implementation con- 
ventions and restrictions of the PL/I (F) 
compiler, and are indicated by (I) appear- 
ing after the item. 



a. Q£g£gting System_ and Job Control 



(1) The option list in the PARM parameter 
of an EXEC statement should be 
enclosed in quotation marks, and is 
limited to a maximum length of 40 
characters (including commas but 
excluding quotation marks). (I) 

(2) When the source deck is in the input 
stream to the sequential scheduler, 
check that the last card in the source 
deck is a delimiter (/* in columns 1 
and 2) . (I) 

(3) A STATIC variable in an overlay seg- 
ment could be overwritten during an 
overlay operation unless it has the 
EXTERNAL attribute. (I) 

(4) Special care should be taken when 
using ENVIRONMENT (INDEXED). For 
example, no secondary quantity can be 
allocated by the SPACE parameter. (I) 



1 (numeral), I (letter), | (or), 

/ (slash), * (quotation mark) ; 

t (not), 7 (seven), 

> (greater than) ; 

L (letter), < (less than). 

(letter), (zero); 

S (letter), 5 (f ive) ; 

Z (letter) , 2 (two) ; 

_ (break character), 

- (minus sign) ; 



(2) Ensure that the source program is 
completely contained within the mar- 
gins specified by the SORMGIN 
option. (I) 

(3) Inadvertent omission of certain sym- 
bols may give rise to errors that are 
difficult to trace. Common errors 
are: unbalanced quotation marks; 
unmatched parentheses; unmatched com- 
ment delimiters (e.g., /* punched 
instead of */ when closing a comment) ; 
and missing semicolons. 

(4) Reserved keyword operators in the 
48-charactar set (e.g., GT, CAT) must 
in all cases be preceded and followed 
by a blank or comment. 

(5) Care should be taken to ensure that 
END statements correctly match the 
appropriate DO, BEGIN, and PROCEDURE 
statements. 

(6) In some situations, parentheses are 
required when their necessity is not 
immediately obvious.. In particular, 
the expression following WHILE and 
RETURN must be enclosed in 
parentheses. 



c._ Pro gra m Control 



b. Source Program_and Genera l Syntax 



(1) Keypunch transcription errors may 
occur unless particular care is taken 
when writing the following characters: 



(1) The procedure to be given initial 
control at execution time must have 
the OPTIONS(MAIN) attribute. If more 
than one procedure has the MAIN 
option, the first one gets 
control. (I) 
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(2) When a procedure of a program is 
invoked while it is still active, it 
is said to be used recursivel y. 
Attempting the recursive use of a 
procedure that has not been given the 
RECURSIVE attribute may result in a 
program interrupt after exit from the 
procedure. This will occur if ref- 
erence is made to AUTOMATIC data of an 
earlier invocation of the procedure. 



Declarations and Attributes 



(1) DECLARE statements for AUTOMATIC vari- 
ables are in effect executed at entry 
to a block; sequences of the following 
type are therefore likely to lead to 
unpredictable storage requests: 



004 



56.0 



45.6 



A: PROC; 
N=4; 
DCL B(N) FIXED; 



END; 

(2) Missing commas in DECLARE statements 
are a common source of error. For 
example, a comma must follow the entry 
for each element in a structure dec- 
laration. 

(3) External identifiers should neither 
contain more than seven characters,, 
nor start with the letters IHE. (I) 

(4) In a PICTURE declaration, the V char- 
acter indicates the scale factor, but 
does not in itself produce a decimal 
point on output. The point picture 
character produces a point on output* 
but is purely an editing character and 
does not indicate the scale factor.. 
In a decimal constant, however, the 
point does indicate the scale factor. 
For example: 

DCL A PIC 99.9*, 

B PIC 99V9', 

C PIC 99. V9* ; 
A;B,C=45.6; 
PUT LIST (A,B,C) ; 

This will cause the following values 
to be put out for A, B, and C, 
respectively: 



04.5 



456 



45.6 



If these values were now read back 
into the variables by a GET LIST 
statement. A, B, and C would be set to 
the following respective values: 



If the PUT statement were then repeat- 
ed, the result would be: 



00.4 



560 



45.6 



(5) Separate external declarations o 
same identifier must not specify 
flicting attributes, either expli 
or by default. If this occur 
compiler will not be able to d 
the conflict. PL/I also requires 
if an INITIAL value is sp^cifi 
one declaration of a STATIC EXT 
variable, the same INITIAL 
should appear in every declarati 
that variable. 



f the 
con- 
citly 
s the 
etect 
that 
ed in 
ERNAL 
value 
on of 



(6) An identifier cannot be used for more 
than one purpose within its scope. 
Thus, the use of X in the following 
sequence of statements would be in 
error: 

PUT FILE (X) LIST (A,B„C); X=Y+Z; 
X: M=N; 

(7) It is advisable to declare all entry 
points, associated parameter lists, 
and any return values, to avoid inad- 
vertent clashes of attributes. 

If the attributes of the data items in 
an argument list do not match those 
declared for the ENTRY, a dummy argu- 
ment is created with the correct 
attributes, and the data item is con- 
verted into the dummy™ For example: 

DCL X ENTRY (FIXED., CHAR(4)), 

Y FIXED, Z FIXED (1,0) ; 
Y=45; 
Z = 0; 
CALL X(Y, Z) ; 

X: PROC (A, 3) ; 
DCL A FIXED, 

B CHAR(4) ; 
END; 

In the above example, a dummy is 
created for the second argument, Z, 
and is passed to X as 'bbbO'. 

If the attributes declared for X in 
the entry name declaration were incom- 
patible with the attributes of tne 
arguments in the CALL statement, the 
compiler would issue a diagnostic mes- 
sage, and at execution time no conver- 
sion would take place. However, if 
the attributes declared for X in the 
entry name declaration conflicted with 
the attributes of the corresponding 
parameters in the PROCEDURE statement, 
the compiler would not detect the 
disagreement, and at execution time 
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the consequences of such an error 
would, in general, be unpredictable. 
For example, if X were declared 

DCL X ENTRY (FLOAT, CHAR(U)); 



then 45 would be passed as FLOAT, but 
would be interpreted by X as FIXED, 
possibly with disastrous results. 

Similarly, attributes declared for 
RETURN values must agree in the invok- 
ing and invoked procedures; however, 
the actual expression returned may be 
of any data type and will be converted 
to that declared. For example: 

DCL X RETURNS (CHAR(4)); 
DCL A CHAR (4) ; 

X: PROC CHAR (4) ; 
RETURN (I*J*K) ; 
END X; 

A=X; 

The precision of decimal integer con- 
stants should be taken into account 
when such constants are passed. For 
example: 

CALL ALPHA (6) ; 

ALPHA: PROCEDURE(X) ; 

DCL X FIXED DECIMAL; 
END; 

The above example is incorrect because 
X will be given a default precision., 
while the constant, 6, will be passed 
with precision (1,0). 

(8) When a data item requires conversion 
to a dummy, and the called procedure 
alters the value of the parameter, 
note that the dummy is altered, not 
the original argument. For example: 

DCL X ENTRY (FIXED, FIXED), 

A FIXED, 

B FLOAT; 
CALL X(A, B) ; 



(9) 



X:PROC(Y,Z) 
DCL (Y,Z) 
Y=Z**100; 

Z=Y**3; 

END X; 



FIXED; 

/*A IS ALTERED IN 

CALLING PROC*/ 
/*B IS UNALTERED IN 
CALLING PROC*/ 



When the attributes for a given iden- 
tifier are incompletely declared, the 
rest of the required attributes are 
supplied by default. The following 
default assumptions should be careful- 
ly noted. 



FLOAT DECIMAL REAL is assumed for 
implicitly declared arithmetic varia- 
bles, unless the initial letter is in 
the range I through N, when FIXED 
BINARY REAL is assumed. 

If a variable is explicitly declared 
and any of the base, scale, or mode 
attributes is specified, the others 
are assumed to be from the set 
FLOAT/DECIMAL/REAL. For example: 



DCL I; 



DCL J REAL; 



/♦I IS FIXED BINARY 
(15,0) REAL 
AUTOMATIC*/ 

/*J IS FLOAT DECIMAL 
(6) REAL 
AUTOMATIC*/ 



DCL K STATIC; /*K IS FIXED BINARY 
(15 w 0) REAL 
STATIC*/ 



DCL L FIXED; 



/*L IS FIXED DECIMAL 
(5,0) REAL 
AUTOMATIC*/ 



(10) The precision of complex expressions 
is not obvious. For example, the 
precision of 1 + 11 is (2,0), that is, 
the precision follows the rules for 
expression evaluation. 

(11) When a procedure contains more than 
one entry point, with different param- 
eter lists on each entry, make sure 
that no references are made to param- 
eters other than those associated with 
the point at which control entered the 
procedure. For example: 

A: PROCEDURE (P,Q) ; 

P=Q+8; RETURN; 
B: ENTRY (R, S) ; 

R=P+S; /*THE REFERENCE TO P 
IS AN ERROR*/ 

END; 

(12) BASED storage is allocated in terms of 
doublewords; therefore, even for the 
smallest item, at least eight bytes 
are required. (I) 

(13) The variable used in the REFER option 
must be referred to unambiguously. 
For example: 

DCL 1 A, 

2 Y FIXED BIN, 

2 Z FLOAT, 

B, 

2 Y FIXED BIN 

2 T(1:N REFER (B.Y)) ; 



1 



In any references to this declaration, 
Y must be fully qualified to prevent a 
possible ambiguity. 
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(14) A pointer qualifier (explicit or 
implicit) may not be based or sub- 
scripted. (I) 

(15) Conflicting contextual declarations 
must be avoided. P is often used as 
the name of a pointer; it must not, 
therefore, assume by default the char- 
acteristics of another data type. For 
example: 

B BASED (P), 



P AUTO, 



P is first contextually declared to be 
a pointer and then, by default, to be 
FLOAT DECIMAL. 

(16) BASED variables cannot be used as 
arguments or parameters. (I) 

(17) Offsets must be declared with a level 
1 unsutiscripted BASED area. 



Failure to initialize a subscript can 
be detected by checking for subscripts 
out of range, when debugging the pro- 
gram. 

(2) Any attempt to write out a variable or 
array that has not been initialized 
may well cause a data interrupt to 
occur. For example: 

DCL A(10) FIXED; 

A(1)=10; 

PUT LIST (A) ; 

To avoid the data interrupt, the array 
should be initialized before the 
assignment statement, thus: 



A=0; 

Note th 
as a re 
an uni 
conditi 
in the 
action 
the way 
nates, 
same pr 
used. 



at this problem can also occur 

suit of CHECK system action for 

nitialized array. If the CHECK 

on were enabled for the array 

above example, and system 

were taken, the results, and 

in which the program termi- 

would be unpredictable. The 

oblem arises when PUT DATA is 



e. Assignments and Initial ization 



(3) Note the distinction between 
= (assignment) and = (comparison). 
The statement 



(1) When a variable is accessed, it is 
assumed to have a value which has been 
previously assigned to it and which is 
consistent with the attributes of the 
variable. If this assumption is 
incorrect, either the program will 
proceed with incorrect data or a pro- 
gram interrupt will occur. Such a 
situation can result from failure to 
initialize the variable, or it can 
occur as a result of the variable 
having been set in one of the follow- 
ing ways: 

(a) by the use of the UNSPEC pseudo- 
variable 

(b) by RECORD-oriented input 

(c) by overlay defining a picture on a 
character string, with subsequent 
assignment to the character string 
and then access to the picture 

(d) by passing as an argument a 
variable assigned in a different 
procedure, without matching the 
attributes of the parameter. 

Failure to initialize a variable will 
result in the variable having an 
unpredictable value at execution time. 
Do not assume this value to be zero. 



A=B=C; 

means "compare B with C and assign the 
result (either * 1'B or 'O'B) to A, 
performing type conversion if neces- 
sary. " 

(4) Assignments that involve conversion 
should be avoided if possible (see 
section 1.f.2., below). 

(5) In the case of initialization of or 
assignment to a fixed length string: 
if the assigned value is shorter than 
the string, it is extended on the 
right with blanks (for a character 
string) or zeros (for bit strings). 
For example: 

DCL A CHAR(6) , 

B CHAR (3) INITCCR*); 
A=B; 

After the execution of the above 
statements, B would contain CRb, and A 
would contain CRbbbb. 

(6) It is not possible to assign a cross 
section of an array of structures in a 
single statement; the whole of an 
array of structures, or a single ele- 
ment may be referenced, but not a 
cross section. (I) 
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(7) When SIZE is disabled, the result of 
an assignment which would have raised 
SIZE is unpredictable: 

FIXED BINARY: The result of an assign- 
ment here -- which includes, for 
instance, source language assignments 
and the conversions implied by parame- 
ter matching — may be to raise FIXE- 
DOVERFLOW. 



The value of I is now 1.0625. 
This is because .lis converted to 
FIXED BINARY (5, 4), so that the 
nearest binary approximation is 
0.0001B (no rounding occurs). The 
decimal equivalent of this is 
.0625. A better result would have 
been achieved by specifying .1000 
in place of .1. (See also item 
(f) below.) 



FIXED DECIMAL: Truncation to the near- 
est byte may occur, without raising an 
interrupt. If the target precision is 
even, an extf^a digit may be inserted 
in the high-order byte. 



f, Arithmetic and Logical Operations 



(1) The rules for expression evaluation 
should be carefully noted, with parti- 
cular reference to priority of opera- 
tions. The following examples show 
the kind of mistake that can occur: 

X>Y|Z is not equivalent to X>Y|X>Z 
out is equivalent to (X>Y) | Z 

X>Y>Z is not equivalent to X>YSX>Z 
but is equivalent to (X>Y)>Z 

The clause IF A=B||C is equivalent 
to IF A=(B||C),not to IF (A=B)]|C 

All operation sequences of equal 
priority are evaluated left to right* 
except for **, prefix +, prefix -, and 
n , which are evaluated right to left. 
Thus, the statement 

A=B**-C**D; 

is equivalent to 

A=B**(-(C**D) ) ; 



(b) If arithmetic is performed on 
character string data, the inter- 
mediate results are held in the 
maximum precision: 

DCL A CHAR(6) INIT( ' 1 23. 45' ) ; 
DCL B FIXED(5,2) ; 
3=A; /*B HAS VALUE 123.45*/ 
3=A+A; /*B HAS VALUE 246.00*/ 

(c) The rules for arithmetic to bit 
string conversion affect assign- 
ment to a bit string from a deci- 
mal constant: 

DCL A BIT(1), 
D BITC5) ; 
A=1; /*A HAS VALUE ' 0'B*/ 
D=1 ; /*D HAS VALUE , 00010 , B*/ 
D='1'B; /*D HAS VALUE 

'10000'B*/ 

IF A=1 THEN GO TO Y; 

ELSE GO TO X; 

The branch will be to X, because 
the assignment to A resulted in 
the following sequence of actions: 

(1) The decimal constant, 1, is 
assumed to be FIXED DECIMAL 
(1,0) and is assigned to tem- 
porary storage with the attri- 
butes FIXED BINARY(4,0), tak- 
ing the value '0001'B; 

(2) This value is now treated as a 
bit string of length (4), so 
that it becomes '0001'B; 



The normal use of parentheses is to 
modify the rules of priority; however, 
it may be convenient to use redundant 
parentheses as a safeguard or to clar- 
ify the operation. 

(2) Conversion is governed by comprehen- 
sive rules which must be thoroughly 
understood if unnecessary trouble is 
to be avoided. Some examples of the 
effect of conversion follow. 

(a) DECIMAL FIXED to BINARY FIXED can 
cause unexpected results if frac- 
tions are involved: 

DCL I FIXED BIN(31,5) INITd); 
I = I+. 1; 



(3) The resultant bit string is 
assigned to A. since A has a 
declared length of 1, and the 
value to be assigned has 
acquired a length of 4, trun- 
cation occurs at the right, 
and A has a final value of 
*0'B. 

To perform the comparison opera- 
tion in the IF statement, '0'B and 
1 are converted to FIXED BINARY 
and compared arithmetically. They 
are unequal, giving a result of 
"false" for the relationship A=1. 

In the first assignment to D, a 
sequence of actions similar to 
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that described for A takes place, 
except that the value is extended 
at the right with a zero, because 
D has a declared length that is 1 
greater than that of the value to 
be assigned. 

(d) Assignment of arithmetic values to 
character strings involves conver- 
sion according to the rules for 
LIST-directed output. 

Example 1 

DCL A CHAR(4) , 
B CHAR(7> ; 
A= , f ; /*A HAS VALUE ' Obbb' */ 
A=0; /*A HAS VALUE *bbbO'*/ 
B=1 234567; /*B HAS VALUE 
'bbb1234»*/ 

No te: The three blanks are neces- 
sary to allow for the possibility 
of a minus sign and/or a decimal 
or binary point, with provision 
for a single leading zero before 
the point. 

Example 2 

DCL CTLNO CHARC8) INIT('O'); 
DO 1=1 TO 100; 

CTLNO=CTLNO+1; 



END; 

In this example, a conversion 
error occurs because of the fol- 
lowing sequence of actions: 

(1) The initial value of CTLNO, 
that is, 'Obbbbbbb', is con- 
verted to FIXED DECIMAL(5,0) 
for the addition, giving a 
temporary value of 00000. 

(2) The decimal constant, 1„ 
assumed to be FIXED 
DECIMAL (1,0), is added; in 
accordance with the rules for 
addition, the precision of the 
result is (6,0), giving a 
value of 000001. 

(3) This value is now converted to 
a character string of length 
9, value • bbbbbbbbV, in pre- 
paration for the assignment 
back to CTLNO. 

(4) Because CTLNO has a length of 
8, the assignment causes trun- 
cation at the right; thus, 
CTLNO has a final value that 
consists entirely of blanks. 
This value cannot be success- 



fully converted to arithmetic 
type for the second iteration 
of the loop- 



(e) FIXED division can result in unex- 
pected overflows or truncation. 
For example, the expression 

25+1/3 

would yield a value of 5. 33... 3. 
To obtain a result of 25- 33... 3, 
it would be necessary to write 

25+01/3 

The explanation is that constants 
have the precision and scale fac- 
tor with which they are written, 
while FIXED division results in a 
value of maximum implementation- 
defined precision. The results of 
the two evaluations are reached as 
follows: 



T T 

Preen/ | 
Scale ] 
Item | Factor] Result 



1 

3 

1/3 
25 
25+1/3 



+- 



01 
3 
01/3 
25 
25+01/3 



+- 



(1,0) | 1 

(1,0) ] 3 
( 15, 14) j 0-333 3 3 33 33333 3 3 

(2,0) | 25 
(15, 14) | 5.33333 33 333333 3 
| (truncation on 
j left; 

| FIXEBOVERFLOW 
| would be raised 
j unless disabled) 



(2,0) ] 01 

(1,0) ] 3 
( 15, 13) | 00.333333 333333 3 

(2,0) | 25 
(15, 13) ]25. 33 33333333333 



(f) Checking of a picture is performed 
only on assignment into the pic- 
ture variable: 

DCL A PIC 999999*, 

B CHAR (6) DEF A, 

C CHAR(6) ; 
3=" ABCDEF 1 ; 
C=A; /*WTLL NOT RAISE CONV 

CONDITION*/ 
A=C; /+WILL RAISE CONV*/ 

Note also (A, B, C as declared 
above) : 

A=1 23456; /*A HAS VALUE 
123456*/ 
/*B HAS VALUE 
•123456'*/ 
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(g) 



C=1 23456; /*C HAS VALUE 

C=A; /*C HAS VALUE ■ 123456**/ 

A FIXED DECIMAL scalar with a 
declared even precision (P,Q) may 
have an effective precision of 
(P+1 f Q) f as the high-order byte 
may not be non-zero. The SIZE 
condition can be used to eliminate 
this effect: 

DCL (A f B f C) FIXED DECIMAL (6,0); 
ON SIZE; 



(SIZE) : A = B + C; 



This ensures 
byte of A 
assignment. 



that the high-order 
is zero after the 



g_. DO_g_rou£S 



(1) The scope of a condition prefix 
applied to a DO statement is limited 
to execution of the statement itself; 
it does not apply to execution of the 
entire group. 

(2) An iterative DO group is not executed 
if the terminating condition is satis- 
fied at initialization: 

1 = 6; 

DO J=I TO 4; 
X=X+J; 

END; 

X is not altered by this group, since 
BY 1 is implied. Iterations can step 
backwards, and if BY -1 had been 
specified, three iterations would have 
taken place. 

(3) Expressions in a DO statement are 
assigned to temporaries with the same 
characteristics as the expression, not 
the variable. For example: 

DCL A DECIMAL FIXED(5,0); 
A=10; 
DO 1=1 TO A/2; 



Five iterations would result if the DO 
statement were replaced by 



ITEMP=A/2; 

DO 1=1 TO ITEMP; 



(4) DO groups cannot be used as ON-units. 



(5) Upper and lower bounds of iterative DO 
groups are computed once only, even if 
the variables involved are reassigned 
within the group. This applies also 
to the BY expression. 



Any new values assigned to the varia- 
bles involved would take effect only 
if the DO group was started again. 



(6) In a DO group with both a control 
variable and a WHILE clause, the 
evaluation and testing of the WHILE 
expression is carried out only after 
determination (from the value of the 
control variable) that iteration may 
be performed. For example, the fol- 
lowing group would be executed at most 
once: 



DO 1=1 WHILE(X>Y) ; 



END; 

(7) I is frequently used as the control 
variable in a DO group, for example: 

DO 1=1 TO 10; 

Within the scope of this implicit 
declaration, I might be contextually 
declared as a pointer, for example: 

DCL X BASED (I) ; 

The two statements are in conflict and 
will produce a diagnostic message. 
When I is a pointer variable,, it can 
only be used in a DO group in one of 
the following ways: 

1. DCL (P, IA, IB, IC) POINTER; 



END; 

This loop will not be executed, 
because A/2 has decimal precision 
(15,10), which, on conversion to 
binary (for comparison with I), 
becomes binary (31,34). 



DO P=IA,IB,IC; 
2. DCL (P, IA) POINTER; 

DO WHILE (P=IA) ; 
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h. Data Aggregates 



i. 



Strings 



(1) Array arithmetic should be thought of 
as a convenient way of specifying an 
iterative computation. For example: 



DCL AUO, 20) ; 

A=A/A(1, 1) ; 

has the same effect as 
DCL A(10 f 20) ; 



DO 1=1 TO 10; 
DO J=1 TO 20; 
A(I,J)=A(I,J)/A(1, 1) ; 

END; END; 



(1) Assignments made to a varying string 
by means of the SUBSTR pseudo-variable 
do not set the length of the string. 
A varying string initially has an 
undefined length, so that if all 
assignments to the string are made 
using the SUBSTR pseudo-variable, the 
string still has an undefined length 
and cannot be successfully assigned to 
another variable or written out. 

(2) The user must ensure that the lengths 
of intermediate results of string 
expressions do not exceed 32767 bytes. 
This applies particularly to variable 
string lengths, as there is no object- 
time length checking. (I) 



j. Functions and Pseudo^Variables 



Note that the effect is to change the 
value of A (1,1) only, since the first 
iteration would produce a value of i 
for A(1,1). If the programmer wished 
to divide each element of A by the 
original value of A(1,1), he could 
write 

B=A (1,1); 

A=A/B; 

or alternatively, 

DCL A(10,20), 
B(10,20) ; 



(1) When UNSPEC is used as a pseudo- 
variable, the expression on the right 
is converted to a bit string. 
Consequently, the expression must not 
be invalid for such conversion; for 
example, if the expression is a char- 
acter string containing characters 
other than or 1, a conversion error 
will result. 



k. ON-Conditions and ON-Units 



(2) Note the 
plication: 



B=A/A(1, 1) ; 

effect of array multi- 



DCL (A,B,C) (10, 10) ; 



A=B*C; 



This does not effect matrix multi- 
plication; it is equivalent to: 

DCL (A,B,C) (10, 10) ; 



DO 1=1 TO 10; 
DO J=1 TO 10; 
A(I,J)=B(I, J)*C(I,J) ; 
END; END; 



(1) Note the correct positioning of the ON 
statement. If the specified action is 
to apply when the named condition is 
raised by a given statement, the ON 
statement must be executed before that 
statement. The statements: 

GET FILE (ACCTS) LIST (A,B,C); 
ON TRANSMIT (ACCTS) GO TO TRERR; 

would result in the ERROR condition 
being raised in the event of a trans- 
mission error during the first GET 
operation, and the required branch 
would not be taken (assuming that no 
previous ON statement applies). 
Furthermore, the ON statement would be 
executed after each execution of the 
GET statement. 

(2) An ON-unit cannot be entered by means 
of a GOTO statement. To execute an 
ON-unit deliberately, the SIGNAL 
statement can be used. 
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(3) CONVERSION ON-units entered as a 
result of an invalid conversion (as 
opposed to SIGNAL) should either 
change the invalid character (by means 
Of the ONSOURCE or ONCHAR 
pseudo-variable), or else terminate 
with a GOTO statement. Otherwise, the 
system will print a message and raise 
the ERROR condition. 

(4) At normal exit from an AREA ON- unit, 
the standard system action is to try 
again to make the allocation. As a 
result the ON unit will be entered 
again, and an indefinite loop will be 
created. To avoid this, the amount 
allocated should be modified in the ON 
unit, for example, by using the EMPTY 
built-in function or by changing a 
pointer variable. 



1^ Input/Output 



(f) Attempting to open an INDEXED data 
set for DIRECT OUTPUT. 



(g) Attempting to open a CONSECUTIVE 
data set with DIRECT or KEYED 
attributes. 



(h) Specifying an RKP option, for an 
INDEXED data set, with a value 
resulting in KEYLEN+RKP exceeding 
LRECL. 



(i) Specifying a V-format logical 
record length of less than 18 
bytes for STREAM data sets. 



(j) Specifying, for F-format blocked 
records, a block size which is not 
an integral multiple of the 
recordsize. 



(1) The UNDEFINEDFILE condition may be 
raised if a STREAM file is reopened 
with attributes or options that con- 
flict with attributes, options, or 
parameters previously specified for 
it. For example, if a file originally 
opened with a LINESIZE of 100 is 
subsequently reopened with a LINESIZE 
of 131, the UNDEFINEDFILE condition 
will be raised if the DCB subparameter 
3LKSIZE is not specified on the DD 
card, or if it is specified as less 
than 132. Difficulties of this nature 
can be avoided by the use of different 
file names, or by using the same file 
name with different TITLE option 
specifications. (I) 

(2) The UNDEFINEDFILE condition is raised 
not only by conflicting language 
attributes (such as DIRECT with 
PRINT), but also by the following: 

(a) Block size smaller than record 
size. This condition is not 
raised if spanned (VS- or 
VBS-format) records are used. 

(b) LINESIZE exceeding the permitted 
maximum. 

(c) Blocked records specified for REG- 
IONAL organization. 

(d) U- or V-format records specified 
for INDEXED, REGIONALd), or 
REGIONAL(2) organizations. 

(e) KEYLEN not specified for creation 
Of INDEXED, REGIONAL(2), or 
REGIONALO) data sets. 



(3) 



(k) Specifying, for V-format records, 
a logical record length that is 
not at least four bytes smaller 
than the specified block size. 

(1) Attempting to open a paper-tape 
reader for OUTPUT or UPDATE. 

(m) Attempting to open a file with the 
UNBUFFERED attribute for blocked 
records. 

(n) Attempting to use blocked records 
in the system input stream (SYSIN 
DD DATA or SYSIN DD *) with an 
UNBUFFERED file. The default 
record format for the system input 
stream is FB-format. Since this 
stream is not checked on input, 
the presence of FB-format records 
will not be detected until an 
attempt is made to open the file, 
when UNDEFINEDFILE will be raised- 

Notej. If the UNDEFINEDFILE condition 
is ~" raised because either the key 
length or the block size is not speci- 
fied, a subsequent attempt to open the 
file will not raise this condition 
again. 



(I) 



If a file is to be used for both input 
and output, it must not be declared 
with either the INPUT or the OUTPUT 
attribute. The required option can be 
specified on the OPEN statement. 
There must be no conflict between file 
attributes specified in the declara- 
tion and those specified by the OPEN 
statement. 
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(4) Input/output lists must be surrounded 
by a pair of parentheses; so must 
iteration lists. Therefore, two pairs 
of outer parentheses are required in 

GET LIST ((A(I) DO 1=1 TO N) ) ; 

(5) The last eight bytes of a source key 
to access a regional data set must be 
the character string representation of 
a fixed decimal integer. When gener- 
ating the key, the rules for arithmet- 
ic to character string conversion 
should be considered. For example, 
the following group would be in error: 

DCL KEYS CHAR (8) ; 
DO 1=1 TO 10; 

KEYS=I; 

WRITE FILE(F) FROM (R) 
KEYFROM (KEYS); 
END; 



number of scalar elements in the array 
or structure; thus if more than one 
format item appears in the format 
list, successive elements will be 
matched with successive format items. 
For example: 

DCL 1 A, 

2 B CHAR (5) , 

2 C FIXED(5,2) ; 



PUT EDIT (A) (A(5),F(5,2)) ; 

B will be matched with the A (5) item, 
and C will be matched with the F(5,2) 
item. 

(11)! Arrays are transmitted in row major 
order (e.g., A(1,1), A(1,2), A(1,3), 
A(2,1), etc.) 



The default for I is FIXED 
BINARY(15,0), which requires not 8 but 
9 characters to contain the character 
string representation of the arithmet- 
ic values. 

(6) Note that the file must have the KEYED 
attribute if the KEY, KEYFROM, or 
KEYTO options are to be used in any 
input/output statement referring to 
that file. 

(7) The standard file names SYSIN and 
SYSPRINT are implicit only in GET and 
PUT statements. Any other reference, 
such as those in ON statements or 
RECORD-oriented input/output state- 
ments, must be explicit. 

(8) PAGESIZE and LINESIZE are not file 
attributes, that is, they cannot be 
included in a DECLARE statement for 
the file; they are options on the OPEN 
statement. 

(9) When an EDIT-directed data list is 
exhausted, no further format items 
will be processed, even if the next 
format item does not require a match- 
ing data item. For example: 

DCL A FIXED(5), 

B FIXED (5, 2) ; 
GET EDIT (A,B) ( F< 5) , F ( 5, 2) , X( 70) ) ; 

The X(70) format item will not be 
processed. To read a following card 
with data in the first ten columns 
only, the SKIP option can be used: 

GET EDIT (A,B) (F(5) # F(5,2)) SKIP; 



(12) Strings used as input data for GET 
DATA and GET LIST must be enclosed in 
quotation marks. 

(13) The 48-character representation of a 
semicolon (,.) is not recognized as a 
semicolon if it appears in a DATA- 
directed input stream; the 11-8-6 
punch must be used. (I) 



(14) 



(15) 



If a new record is added by DIRECT 
access to an INDEXED data set whose 
overflow areas are already full, a 
record will be irretrievably lost. 
The position of the new record, in 
relation to the existing records on 
the track, will determine whether it 
is the new record or an existing one 
which is lost. If the new record 
would follow the last existing record 
on the track, the new record will be 
lost. Otherwise, the last existing 
record on the track will be lost. In 
either case, the KEY condition will be 
raised. 



The user must 
limitations of 
data list). Fi 
ON statement is 
data known to 
data known at 
unit. Secondly 
data will be 
directed output 
unallocated or 
raise a CONVERS 

If the ON-unit 



be aware of two 

PUT DATA; (i.e., no 

rstly, its use with an 

restricted because the 

PUT DATA would be the 
the point of the ON 
, and more serious, the 
put out as normal data- 
, which means that any 

unassigned data may 
ION or other condition. 



ON ERROR PUT DATA; 



(10) The number of data items represented 
by an array or structure name appear- 
ing in a data list is equal to the 



is used in an outer block, it must be 
remembered that variables in inner 
blocks are not known and therefore 
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will not be dumped. It would be a 
good practice, therefore, to repeat 
the ON-unit in all inner blocks during 
debuggiag. 

If an error does occur during 
execution of the PUT DATA statement, 
and this statement is within an ON 
ERROR unit, the program will recur- 
sively enter the ERROR unit until no 
more storage remains for the DSA. 
Since this could be wasteful of 
machine time and printout, the ERROR 
unit should be turned off once it is 
activated. Instead of: 



11 READ FILE (F) INTO (X) ; 



15 REWRITE FILE (F) ; 



19 REWRITE FILE (F) FROM (X) ; 



Notes : 



(16) 



ON ERROR PUT DATA; 

better code would be: 

ON ERROR BEGIN; 

ON ERROR SYSTEM; 
PUT DATA; 

END; 

When PUT DATA is used without a data- 
list every variable known at that 
point in the program is transmitted in 
data-directed output format to the 
specified file. Users of this 
facility, however, should note that: 

a) Uninitialized FIXED DECIMAL data 
may raise the CONVERSION condi- 
tion or a data interrupt. 

b) Unallocated CONTROLLED data will 
cause arbitrary values to be 
printed and, in the case of 
FIXED DECIMAL, may raise the 
CONVERSION condition or a data 
interrupt. 

Use of ,,locate_mode J _I/Q. A pointer set 
in READ SET or LOCATE SET may not be 
valid beyond the next operation on the 
file, or beyond a CLOSE statement. In 
OUTPUT files, WRITE and LOCATE state- 
ments can be freely mixed. 

For UPDATE files, the REWRITE state- 
ment with no options must be used if 
it is required to rewrite an updated 
record. The result of this REWRITE is 
always to rewrite the contents of the 
last buffer onto the data set. 

For example: 

3 READ FILE (F) SET (P); 



Statement 7 will rewrite a record 

updated in the buffer. 
Statement 15 will only rewrite 
exactly what was read, i.e., it 
will not change the data set at 
all- 
Statement 19 will raise ERROR, 
since there is no preceding 
READ statement. 

There are two cases where it is not 
possible to check for the KEY condi- 
tion on a LOCATE statement until 
transmission of a record is attempted. 
(This will generally occur on execu- 
tion of the next PL/I output statement 
for this file.) 

These are: 

When there is insufficient room in the 
specified region to output the record 
on a REGIONALO) V- or U-format file. 
Neither the record raising the condi- 
tion nor the current record are trans- 
mitted. 

When the embedded key differs from the 
KEYFROM in an ISAM file. 

If this LOCATE statement is to trans- 
mit the last record before the file is 
closed, in case 1, the record is not 
transmitted, and in the second case, 
the embedded key is overwritten with 
the KEYFROM string, and the record is 
transmitted. 

Thus the condition may be raised by a 
CLOSE statement or by an END statement 
that causes implicit closing. Until 
the error is corrected, the record 
cannot be transmitted nor can any 
further operation be carried out on 
the file. 



5 P->R = S; 



7 REWRITE FILE (F) ; 



If a LOCATE statement was used in the 
addition of KEYED records to any type 
of REGIONAL data set then, if RECORD 
condition is raised, the key value 
presented at subsequent operations 
must not be less than the current one. 
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(18) Allocation and freei ng of BASED Varia - 
bl es : If a reference is made, at 
object time, to a BASED variable that 
has not been allocated storage, an 
unpredictable interrupt (protection, 
addressing or specification) may 
occur. 



use of input/output facilities; and addi- 
tional hints. 



a. Improving_Speed of Compilation 



(19) Areas, pointers, offsets and struc- 
tures containing any of these cannot 
be used with STREAM I/O. PUT DATA 
cannot be used with BASED variables. 

When a BASED variable is freed, the 
associated pointer no longer contains 
useful information. This pointer can 
only be used again if: 

1 . It is re-allocated with the same or 
another BASED variable, or, 

2. A value is assigned to it from an 
offset or another pointer 



A BASED variable allocated in an 
must be freed in that area, 
example: 

DCL A AREA, B BASED (X) ; 
ALLOCATE B IN (A) ; 



area 
For 



FREE B; 

FREE B IN (A) ; 



/* ILLEGAL */ 
/* LEGAL */ 



The following measures are suggested for 
use where compilation time is an important 
factor. 

(1) Allocate as much storage to the com- 
piler as possible, using the 
SIZE=999999 option on the EXEC state- 
ment. This reduces the chances of 
bringing the spill mechanism into 
operation. 

(2) Keep the number of BEGIN blocks and 
procedures to a minimum. Do not use 
BEGIN-END to effect statement group- 
ing; this is more simply obtained by 
use of DO-groups. 

(3) Try to avoid using the ATR, XREF, 
LIST, DECK, and CHAR4 8 compiler 
options. 

(4) Avoid features which give rise to 
large dictionary entries and large 
amounts of text. For example, 

DCL A PIC ' (4000) X f ; 



occupies 
block. 



one complete dictionary 



2. PROGRAMMING FOR INCREASE D EFFICIENCY 



In PL/I there are often several differ- 
ent ways of producing a given effect. One 
of these ways will usually be more effi- 
cient from a particular point of view than 
another, depending largely on the method of 
implementation of the language features 
concerned. However, it should be realized 
at the outset that a primary cause of 
program inefficiency occurs at the problem 
definition stage, before any actual pro- 
gramming is done: PL/I cannot be used to 
full advantage unless the problem is 
defined in terms of PL/I. 

The purpose of this section is to help 
the programmer make the best use of the 
PL/I (F) Compiler. The first two parts are 
presented from two different viewpoints: 

a. Improving the speed of compilation 

b. Improving the speed of execution. 

The remainder of the section is of common 
interest, and deals with methods of 
decreasing the dictionary size; use of 
storage; use of compile-time facilities; 



(5) Use of the following features causes 
optional compiler phases to be loaded: 
ALLOCATE, LIKE, USES/SETS., CHECK, iSUB 
defining, built-in functions with 
aggregate arguments, GENERIC entry 
names, DELAY/DISPLAY. If any of these 
features can be completely avoided 
without extensively increasing the 
source code, there will be a corres- 
ponding increase in compilation speed. 

(6) On re-runs, further slight increases 
in efficiency can be obtained by 

(a) removing all unreferenced labels 
and data; 

(b) correcting all source errors, and, 
where possible, minimizing the 
number of diagnostic messages pro- 
duced, including such messages as 
"FILE/STRING option missing in 
GET/PUT statement"; 

(c) subdividing the program if the 
auxiliary storage has been used; 

(d) specifying the NOSOURCE option; 

(e) specifying the FLAGS option- 
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See also 
tionary. 



2.c. Decreasing Size of Dic- 



(6) Avoid extensive use of adjustable 
arrays and/or CONTROLLED storage. 



b. I m p rovin g Speed of Execution 



The following measures are suggested for 
use where execution time is an important 
factor. Note that while some of these 
measures may slow down the compilation, 
this is offset by the fact that others will 
accelerate it. In the main, there should 
be no serious increase in compilation time. 



(1) Make use of the OPT=01 option, 
the STMT option. 



Avoid 



(2) Avoid unnecessary program segmentation 
and block structure; all procedures, 
ON-units and BEGIN blocks need prolo- 
gues and epilogues, the initialization 
and housekeeping for which carry a 
considerable overhead. (Prologues and 
epilogues are described in Appendix C 
of this publication. ) Whenever possi- 
ble, use GOTO or IF statements to 
control program logic, rather than the 
CALL statement. 

(3) Branching in IF statements can be 
improved by using DO and END state- 
ments to bracket a THEN clause, rather 
than using a GOTO statement in the 
THEN clause. For example: 

IF A=B THEN DO; 
C=D; 
E=F; 

END; 
L: etc. 

is more efficient than 

IF At=B THEN GO TO L; 

C=D; 

E=F; 
L: etc. 

(4) When GO TO is used in an IF statement, 
more efficient object code is produced 
by the GO TO if it refers to a label 
within the same block rather than to a 
label outside the block. 

(5) Keep IF clauses simple; separate any 
multiple conditions into a series of 
simple IF statements. For example: 

IF A=B 

THEN IF C=D 
THEN IF E=F 

THEN GO TO M; 

is more efficient than 

IF (A=B)S(C=D)S(E=F) 
THEN GO TO M; 



(7) Use constants wherever possible 
instead of expressions. 



(8) Exercise care in specifying precision. 
For example, 

DCL A FIXED DEC(8,4), 
B FIXED DEC(10,2), 
C FIXED DECCIO, 1) ; 



C=A+B; 

This requires almost twice as much 
code as it would if B had been 
declared (10,4), because the evalua- 
tion of A+B requires a scale factor of 

4. 

(9) Use the PICTURE attribute only when 
necessary. For example, use FIXED 
DECIMAL(5,2) instead of Picg^gygg'. 
If a picture field is used in more 
than one arithmetic operation, convert 
it once and then use the new form in 
each operation. This holds for any 
conversion required more than once. 

If it is necessary to use data with 
the PICTURE attribute in arithmetic 
expressions, use pictures that will be 
handled in-line, as this considerably 
reduces execution time. Pictures with 
all 9s, a V and a non-drifting sign 
are particularly useful. For example: 

•999* 

•$99v99' 

•s99' 
■V-9-9 9 1 

(10) Internal switches and counters, and 
data involved in substantial computa- 
tion or used for subscripts, should be 
declared BINARY; data required for 
output should be kept in DECIMAL form. 

(11) Keep data conversions to a minimum. 
Some possible methods follow: 

(a) Use additional variables. For 
example, if a problem specifies 
that a character variable has to 
be regularly incremented by 1, 

DCL CTLNO CHAR (18); 



CTLNO = CTLNO+1; 
requires two conversions, while 
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DCL CTLNO CHAR(8), 
DCTLNO DEC FIXED; 



(c) DCL SW BIT(8) INITCI'B); 



DCTLNO=DCTLNO+ 1 ; 
CTLNO=DCTLNO; 

requires only one conversion. 

(b) Take special care to make struc- 
tures match when it is intended to 
move data from one structure to 
another. 

(c) Avoid mixed mode arithmetic, espe- 
cially the use of character 
strings in arithmetic calcula- 
tions. 

(12) Declare arrays in the procedure in 
which they are used, instead of pass- 
ing them as arguments. Declare sub- 
script variables in the block in which 
they are used, as FIXED BINARY. 

(13) In multiple assignments to subscripted 
variables, restrict the assignment to 
three variables. 

(14) if a subscripted item is referred tc 
more than once with the same sub- 
script, assign the element to a scalar 
variable: 

R=(A(I)+1/A(I) )+A(I)**A(I) ; 

should be replaced by 

ASUB=A(I) ; 

R= ( ASUB+ 1 /ASUB) +ASUB**ASUB ; 

(15) Bit strings should, if possible, be 
specified as multiples of eight bits. 
Bit strings used as logical switches 
should be specified according to the 
number of switches required. In the 
examples below, (a) is preferable to 
(b), and (b) to (c) : 



IF SW = MOOOOOOO'B THEN DO; 



2 . Multiple_Switch.es 
(a) DCL B BIT(8) ; 

B = '11100000'B; 



IF B = ' 11100000'B THEN DO; 



(b) DCL B BIT(3) ; 



B = ' 1 1 1 • B ; 



IF B = ' 111'B THEN DO; 



(c) DCL (SW1,SW2,SW3) BIT(1); 



SW1, SW2„ SW3, = '1'B; 



IF SWl£SW2gSW3 THEN DO: 



1 • Single Switches 

(a) DCL SW BITd) INIT C1'B); 

IF SW THEN DO; 

(b) DCL SW BIT(8) INITd'B); 
IF SW THEN DO; 



If bit string data is to be held in 
structures, such structures should be 
declared ALIGNED. 

(16) Note that concatenation operations are 
time-consuming. 

(17) Varying length strings are not as 
efficient as fixed length strings. 

(18) Fixed length strings are not efficient 
if their length is not known at com- 
pile time, as in the following exam- 
ple: 

DCL A CHAR(N) ; 
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(19) Avoid using the SIZE, SUBSCRIPTRANGE, 
STRINGRANGE and CHECK ON- conditions, 
except during debugging. Debugging 
aids (see "Testing Programs" in this 
publication) should be removed from 
the program before running it as a 
production job. 



(20) Do not refer to the DATE built-in 
function more than once in a run; it 
is expensive. Instead, refer to the 
function once and save the value in a 
variable for subsequent use; e.g. 
instead of 



PAGEA= TITLEAI |DATE; 
PAGEB= TITLEBJ | DATE ; 

it is more efficient to write 



(Input/output is also 
item 2.e., below.) 



discussed in 



(27) 



DTE=DATE; 

PAGEA=TITLEA| |DTE; 
PAGEB=TITLEB| |DTE; 



(21) Allocate sufficient buffers to prevent 
the program becoming I/O bound. 

(22) Use blocked output records. 

(23) Open a number of files in a single 
OPEN statement. 

(24) In STREAM input/output, use long data 
lists instead of splitting up 
input/output statements. 

(25) Use EDIT-directed input/output in pre- 
ference to LIST- or DATA- directed. 



(26) Consider the use of overlay defining 3. 
to simplify transmission to or from a 
character string structure. For exam- 4. 
pie: 

DCL 1 IN, 

2 TYPE CHAR (2), 
2 REC, 

3 A CHAR (5), 1. 

3 B CHAR(7), 

3 C CHAR (66) ; 

GET EDIT(IN) ( A(2 ) , A( 5) , A(7 ) , A( 66 ) ) ; 

In the above example, each 2. 
format-item/data-field pair is matched 
separately, code being generated for 
each matching operation. It would be 
more efficient to define a character 
string on the structure and apply the 
GET statement to the string: 

DCL STRNG CHAR(8 0) DEF IN; 3. 



GET EDIT (STRNG) (A(80)); 



Many operations which, in earlier 
versions of the PL/I (F) compiler, 
were handled by calls to PL/I library 
routines, are now handled in-line. 
The consequent saving in execution 
time for these operations can be of 
the order of ten to one or more; the 
overall effect on program execution 
will obviously depend on the number of 
times these operations are used in a 
program. It will repay the user, 
therefore, to recognise which opera- 
tions are performed in-line and which 
require a library call, and to arrange 
his program to use the former wherever 
possible. The majority of these in- 
line operations are concerned with 
data conversion and string handling. 



D§ta_Con^ersionj_ The data conversions 
performed in-line are shown in Figure 
25. A conversion outside the range or 
condition given, or marked 'Not done* 
is performed by a library call. 



Not all the picture characters 
available may be used in a picture 
involved in an arithmetic conversion. 
The only ones permitted are: 



V and 9 

Drifting or non-drifting characters $., 
S, +, - 

Zero suppression characters Z, * 

Punctuation characters ,, ., /, B 

For in-line conversions, pictures with 
this subset of characters are divided 
into three types: 

Pictures of all 9s with (optionally) a 

V and a leading or trailing sign. 
Example: '997999', '99', 'S99V9* 

, '99V+*, '$999' 

Pictures with zero suppresion charac- 
ters and (optionally) punctuation 
characters and a sign character. 
Also, type 1 pictures with punctuation 
characters. 

Example: *ZZZ', •**/**9', * ZZ9V.99V, 
•+ZZ.ZZZ*, '$///99', , 9.9» 

Pictures with drifting strings and 
(optionally) punctuation characters 
and a sign character^ 

Example: •$$$$•, •-,-- 9', 'S/SS/sg', 
•+++9V. 9 , ,'$$$9-' 
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T 1 

Minimum Opti- 
mization Code 



Conversion 

T 



Source 



Target 



Comments and Conditions 



SIZE 
Disabled 



SIZE 
Enabled 



FIXED BINARY 



FIXED BINARY 
FIXED DECIMAL 

FLOAT 

Bit string 



Character string 
or Picture 



If either scale factor = and the 
other scale factor < 0, then the opt. 
code may be 

If source scale factor = 0, then the 
opt. code may be (whether SIZE is 
enabled or not) 

String must be fixed-length, ALIGNED, 
and with length <256 

Source scale factor must be > 
String must be fixed-length with 
length <256 Picture types 1, 2 or 3 



Not done 



Not done 



FIXED DECIMAL 



FIXED BINARY 

FIXED DECIMAL 

FLOAT 

Bit String 

Character string 

Picture 



If source and target scales have the 
same sign and are non-zero, then the 
opt. code (SIZE disabled) must be 1 



Source precision must be <10 

Source scale factor must be zero 
String must be fixed-length, ALIGNED, 
and with length <2 56 

Source scale factor must be > 
String must be fixed-length and 
length <2 56 

Picture types 1, 2 and 3 For picture 
types 1 and 2 with no sign, the Opt. 
code may be 



4- 




1 
Not done 



Not done 



+- 



FLOAT 



FIXED BINARY 
FIXED DECIMAL 
FLOAT 

Bit string 



■+ 



Target precision must be <9 

Source and target may be single or 
double length 

String must be fixed-length, ALIGNED, 
and with length <256 



Not done 

Not done 



Not done 



Bit string 



FIXED BINARY 

FIXED DECIMAL 
and FLOAT 
Bit string 



Source string must be fixed-length, 
ALIGNED, and with length <25 6 

Source must be fixed-length, ALIGNED, 

and 

with length <32 

Source and target must be ALIGNED 
with length <2040 



Not done 



Not done 



Figure 25. Implicit Data Conversions Performed In-Line 
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T 1 

Minimum Opti- 
mization Code 



Conversion 



Source 



Target 



Comments and Conditions 



SIZE 
Disabled 



SIZE 
Enabled 



Character 

string: 

Fixed-length 



VARYING 



Picture 



Character string: 

Fixed-length 

VARYING 



Character string 
(VARYING) 



Target length must be <256 

Source and target lengths must be 

<256 

Source and target lengths must be 
<256 



Character string 



Picture 



String must be fixed-length with 
length <2 56 

Pictures must be identical 



+- 



Picture 
type 1 



FIXED BINARY 
FIXED DECIMAL 



FLOAT 
Picture 



+- 



Source precision must be <10 

If picture has a sign, then the opt. 

code must be 1 



Source precision must be <10 
Picture types 1, 2 or 3 



Not done 
Not done 



Not done 
Not done 



Label 



Label 



■+■ 







(Pointer/Offset | Pointer /Off set 

— x x 

Implicit Data Conversions Performed In-Lihe (continued) 



Figure 25, 



Sometimes a picture conversion is not 
performed in-line even though the pic- 
ture is one of the above types. This 
may be because: 

1. The optimization code value (OPT=nn) 
is too low, 

2. SIZE is enabled, 

3. There is no overlap between the digit 
positions in the source and target. 
Example : DECIMAL (6,8) or DECIMAL (5, 

-3) to PIC '999V99' will not 
be performed 

4. The picture may have certain charac- 
teristics that make it difficult to 
handle in-line. 

Example : "ZZ.99' 

a. Punctuation between a drifting Z 
or a drifting * and the first 9 is 
not preceded by a V 

b. Drifting or zero expression char- 
acters to the right of the decimal 
point 

Example : 'ZZV.ZZ 1 , f ++V++' 



String Handling: The string functions 
and operations performed in-line are 
shown in Figures 26 and 27. It should 
be noted that even the string func- 
tions indicated as always being per- 
formed in-line may sometimes call a 
library routine. For example, if the 
expression in the 'BIT or CHAR func- 
tions requires an implicit conversion 
not handled in-line, the appropriate 
library routines will be called. 

(27) If a file is declared DIRECT INDEXED, 
then the ENVIRONMENT options INDEXAREA 
and NOWRITE should be applied if pos- 
sible. 



c. De c reasing Size of Dictionary 



If a compilation overflows the dictiona- 
ry, the immediate solution is to subdivide 
the program, recompiling internal proce- 
dures as separate external procedures. If 
this is impracticable or undesirable, the 
dictionary requirements of the compilation 
must be reduced. The following cause large 
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r t 

| String Operation 



Comments and Conditions 



Source 



Target 



Assign 



(OPT=0) 



Note : The assign- 
ment VARYING string 
to fixed-length 
string is not 
handled in-line 



Non -adjustable, ALIGNED, fixed- 
length bit string <20 48 bits long 

Non-adjustable, ALIGNED, bit 
string <2048 bits long 

Non-adjustable, UNALIGNED, fixed- 
length bit string that is a 
scalar element of an AUTOMATIC, 
BASED or STATIC structure with no 
adjustable bounds or extents 



Fixed-length or VARYING 
character string <256 characters 
long 



Non-adjustable, ALIGNED, fixed- 
length bit string <20 48 bits long 

Non-adjustable, ALIGNED, VARY- 
ING bit string <20 48 bits long 

Non-adjustable, UNALIGNED, fixed- 
length bit string that is a 
scalar element of an AUTOMATIC, 
BASED or STATIC structure with no 
adjustable bounds or extents. The 
string must be 1 bit long. 

Fixed- length or VARYING character 
string <256 characters long 



And 



' Not ' , ' Or ' 



Compare 



Concatenate 



STRING function 



Non-adjustable, ALIGNED, fixed-length or VARYING bit strings, with 
length: 

fixed-length - <2048 bits 

VARYING - <32 bits 

Non-adjustable fixed-length character strings <256 characters long 
Non -ad jus table, ALIGNED, fixed-length or VARYING bit strings, with 
length: 

fixed-length - <2048 bits 

VARYING - <32 bits 

Non-adjustable fixed-length or VARYING character strings <256 
characters long 

Non-adjustable, ALIGNED, fixed-length or VARYING bit strings <32 
bits long 

Scalars and non-adjustable contiguous array or structure variables 



Notes 



1. Operations with VARYING strings require 0PT=1. 

2. If the expression in an IF statement is a bit string satisfying the conditions for 
the source string when OPT=0, then, if the string is <10 bits long, in-line code 
is generated to test the value of the string. 

L 

Figure 26. Conditions under which the String Operations are Handled In-Line 



dictionary requirements, and should be 
avoided if possible: 

(1) Excessive use of labels. 

(2) Use of structures rather than separate 
scalar variables. 

(3) The LIKE attribute. 

(4) CONTROLLED identifiers. If they are 
necessary, minimize the number of 
ALLOCATE statements in the program. 

(5) Adjustable bounds and string lengths. 

(6) The DEFINED attribute. 



(7) Secondary entry points. 

(8) Long BCD identifiers. 

(9) Expressions as function arguments. 

(10) iSUB defining. 

(11) Passing subscripted structures or 
cross-sections of arrays as arguments 
to procedures. 

(12) Explicitly qualified BASED variables. 
If it is necessary to use explicit 
pointer qualification, minimize the 
number of different pointer variables 
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used as explicit qualifiers of the 
same BASED variable. 



String 
Function 



BIT 
BOOL 



CHAR 
INDEX 

LENGTH 
SUBSTR 
UNSPEC 



Comments and Conditions 



Always 

Non-adjustable, ALIGNED bit 
strings, where the third argu- 
ment is one of the logical oper- 
ators 'and' , 'not*, 'or' or 
exclusive 'or' 

Always 

Second argument must be a non- 
adjustable character string <256 
characters long 

Always 

STRINGRANGE must be disabled 

Always 



Figure 27. Conditions under which the 
String Functions are Handled 
In-Line 



rk Use of Storage 



have records added to it, the use of 
the ENVIRONMENT option NOWRITE will 
save data management about 5 000 bytes 
of storage. 

(4) The Alignment Attributes: These allow 
the user to provide alignment for 
string and arithmetic data as follows: 

ALIGNED: Arithmetic: 

FIXED DECIMAL: byte 
FLOAT (DOUBLE) : doubleword 
Other: word 
String : byte 

UNALIGNED: Arithmetic and character 
string: byte 
Bit string: bit 

Thus the UNALIGNED attribute can be 
used to obtain denser packing of data 
in main storage, with the minimum of 
padding. 

Area, pointer, offset, label, task and 
event data are always aligned on word 
or doubleword boundaries (see Figure 
49). They can never be UNALIGNED. 

In data aggregates, the explicitly 
declared alignment for the aggregate 
applies to each element in the aggre- 
gate. In structures, however, this 
alignment can be overridden by an 
alignment specified for a particular 
base element. 



(1) Wherever possible, data for computa- 
tion should be binary, rather than 
decimal. 

(2) The following character string assign- 
ment causes a constant of 250 blanks 
to be generated at compile-time: 

DCL A CHAR (2 50) 
A=*b' ; 

To avoid generating such a large con- 
stant, the coding could be as follows: 

DCL A CHAR (2 50) 
DCL B CHAR(l) ; 
B= ' b ' ; 
A=B; 

B is padded, and no constant is gener- 
ated. 

If A had a length of 25 6 or more, then 
the assignment would be handled by a 
library call and a constant with only 
one blank would be generated at 
compile-time. In this case, the first 
coding example would be satisfactory. 

(3) If a file declared as INDEXED is to be 
used for DIRECT UPDATE but will not 



For example: 

DCL 1 STR UNALIGNED, 
2 A, 

2 B ALIGNED, 
2 C; 

Here A and C will be UNALIGNED and B 
will be ALIGNED. 

Default attributes now deoend on the 
data type of the element concerned, 
both for data items and for data 
aggregates. These defaults are: 



UNALIGNED 



ALIGNED 



All string data and 
PICTURE items 

All arithmetic data i.e. 
BINARY 
DECIMAL 
FIXED 
FLOAT 
COMPLEX 



For example: 

DCL A BIT (4) , 
I, 

(B CHAR (10) , X) UNALIGNED, 
(C BIT (12), Y FIXED) ALIGNED; 



122 



Here A is UNALIGNED by default, I is 
ALIGNED by default, and B # C, X and Y, 
are as explicitly declared. 

DCL (AK8 0) CHAR (6), A2(8 0) BINARY) 
ALIGNED, 
Bl (3,3) BIT(2), 
CI (3,3) CHARU), 
Dl (100) DECIMAL; 

Here Al and A2 are as explicitly 
declared, Bl and Cl are UNALIGNED by 
default, and Dl is ALIGNED by default. 



DCL 1 



A, 
2 
2 
2 



B, 

C BIT (4) UNALIGNED, 

D ALIGNED, 

3 E BIT(2) , 

3 F, 

G CHAR (10) ; 



Here A i s a major structure 

B is FLOAT DECIMAL ALIGNED by 

default 
C is explicitly UNALIGNED 
a minor structure 
BIT ALIGNED (inherited from 



D is 

E is 

D) 



F is FLOAT DECIMAL ALIGNED by 
default (here ALIGNED is inher- 
ited from D, but it is also the 
default for F if D had not been 
declared ALIGNED) 

G is CHAR UNALIGNED 

The user must take care that the 
alignment attributes are correct when 
matching variables for: 

1. Use of the DEFINED attribute 

2. Arguments and associated paramet- 
ers 

3. Accessing different generations 
of a based variable. 



e. Use of Compile-Time Facilities 



A facility is provided which allows the 
programmer to manipulate and modify his 
source text during compilation. This 
facility can be used to effect conditional 
compilation of sections of PL/I code, to 
expand sections of PL/I code in line (e.g., 
DO loops), to insert text into a program 
from an external library (see below), and 
to replace or eliminate PL/I identifiers 
(e.g., variable names, keywords, etc.). In 
order to use this facility, the MACRO 
option must be specified on the EXEC con- 
trol card and a SYSUT3 DD statement must be 
included in the job control cards for the 
compilation. The requirements for this 



data set are given in the section "Job 
Processing." If the SOURCE2 option is 
specified on the EXEC card, a listing of 
the input to the compile-time processor is 
produced. 

The implementation restrictions for this 
facility are listed in Appendix B of this 
publication. 



Using the Compile-time INCLUDE Statement: 

A string of text from an external library 
can be inserted into a program by using the 
compile-time statement INCLUDE. This text 
must be a member of a partitioned data set 
and may consist of either PL/I source 
statements or compile-time statements 
(including another INCLUDE) or a mixture of 
the two. A DD statement for the data set 
to be included must be present in the job 
control cards for the compilation. 

The identifier pairs in the INCLUDE 
statement specify the ddname which occurs 
in the name field of the appropriate DD 
card, and a data set member name, in that 
order. The first identifier, the ddname, 
is optional. If it is not specified, the 
default data set SYSLIB is assumed. In 
this case, a SYSLIB DD card is required. 
The second identifier, the data set member 
name, is not optional. If it is missing, 
the statement is considered to be incor- 
rect. Therefore, if only one identifier is 
specified, it is assumed to be the member 
name. 

Restrictions on data sets for the 
INCLUDE statement are specified in Appendix 
B of this publication. 

A library of text can be created by 
using the operating system update utility 
routine called IEBUPDTE. This facility is 
described in the publication IBM System/360 
Operat i ng System, Utilities . 

The following examples illustrate the 
creation of a partitioned data set and the 
use of the INCLUDE statement to insert text 
into a source program. 

Exam ple 1 : Create Library 

//JOB1 JOB 



//STEP1 EXEC 



123,JOHNSMITH, 
MSGLEVEL=1 

PGM=IEBUPDTE, 
PARM=NEW 



//SYSPRINT DD SYSOUT=A 

//SYSUT2 DD DSNAME=MACROLIB, 
DISP= (NEW, KEEP) , 
UNIT=2 311, 
VOLUME=SER=NNNNNN , 
SPACE=(80, (25,25,1)) 
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//SYSIN 



DD 



Comments : 



./ ADD NAME=DCL,LEVEL=00,SOURCE=0 

./ NUMBER NEW1=DC000000,INCR=00000010 

% DCL(I f J) FIXED; 
% 1=10; 

./ ADD NAME=DCLP f LEVEL=00 , SOURCE=0 

./ NUMBER NEW1 =00500000, INCR=00000010 

VAR(1)=15; 

% DO J=2 TO 5; 

VAR(J)=10* (VAR(J-1)+J) ; 

% END; 

. / ENDUP 

/* 

Comment : 

In the foregoing example, a library of 
text called MACROLIB is created, with two 
members, named DCL and DOLP. 

Example 2 : INCLUDE Library 

//JOB2 JOB 123,JOHNSMITH, 

MSGLEVEI=1 

//STEP1 EXEC PROC=PLlLFC, 

PARM. PL1L= * MACRO, 
SOURCE2 ' 

//PL1L.PRIVLIB DD DSNAME= MACROLIB, 

DISP= (OLD, DELETE) , 

UNIT=2311 f 

VOLUME=SER=NNNNNN 

//PL1L. SYSIN DD * 

PROC1: PROCEDURE OPTIONS (MAIN); 

DCL VAR(5) DEC FIXED; 

% INCLUDE PRIVLIB (DCL); 

% IF It =10 % THEN % DO; VAR=0; 

% END; 

% ELSE % INCLUDE 
PRIVLIB (DOLP) ; 

PUT DATA(VAR); 

END PROC1; 

/* 



The % INCLUDE PRIVLIB (DCL) statement 
causes the following text to be inserted: 

% DCL (I, J) FIXED; 
% 1=10; 

The % INCLUDE PRIVLIB (DOLP) statement 
causes the following text to be inserted: 

VAR(1)=15; 

% DO J=2 TO 5; 

VAR(J)=10*(VAR(J-1)+J) ; 

% END; 

In this example, the member called DCL 
is read in, scanned, and the compile-time 
statements are executed, thus assigning a 
value of 10 to the compile-time variable I. 
If the value of I had not been 10, the 
source program produced by the compile-time 
processor would have been: 

PROC1: PROCEDURE OPTIONS (MAIN); 
DCL VAR(5) DEC FIXED; 
VAR=0 ; 

PUT DATA(VAR) ; 
END PROC1; 

However, since the value of I is 10, the 
source program generated in the example is: 

PROC1: PROCEDURE OPTIONS (MAIN); 
DCL VAR(5) DEC FIXED; 
VAR(1)=15; 

VAR(2)=10*(VAR(2-l)+2) 
VAR(3)=10* (VAR(3-1) +3) 
VAR(4)=10*(VAR(4-1) +4) 
VAR(5)=10*(VAR(5-1) +5) 
PUT DATA(VAR) ; 
END PROC1; 



f . Use of Input/Output Facilities 



The characteristics of a data set 
(record format, length, blocking factor, 
etc.) will significantly alter the time 
overhead of programs performing a large 
amount of input/output. Use of the ENVIR- 
ONMENT attribute should be kept to a mini- 
mum in order to allow the DD statement to 
supply the optional data set charac- 
teristics for a given use of a program. In 
general, the use of two or more buffers is 
advantageous to achieve overlap between I/O 
transmission and computing time. Further, 
the blocking of records will generally save 
both time and space on a data set. 

It is advantageous to open a number of 
files in a single OPEN statement, since 
separate opening activities (either expli- 
cit or implicit) will require the reloading 
of the OPEN modules from the system resi- 
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dence. It should also be considered that 
when a file is open, buffers or workspace 
and data management interface modules are 
occupying storage. Accordingly, if storage 
space is a prime consideration, the judi- 
cious use of the OPEN and CLOSE statements 
will help to control the available storage. 



Of the three STREAM data transmission 
techniques available, DATA-directed will 
generally be the most costly, both in time 
and space (symbol table entries exist at 
object time for each data variable 
transmitted) . LIST-directed I/O is availa- 
ble for free format I/O, but the greatest 
degree of control is available by using 
EDIT-directed facilities, which is general- 
ly the most efficient technique, both in 
object time space and execution. 



RECORD Condition: Depending upon the 
record format employed,, the RECORD condi- 
tion may or may not be raised when the 
length of a record variable differs from 
the length of records within the data set. 
Figure 28 indicates when the condition is 
raised, and the results of transmissions 
before raising the condition (a dash indi- 
cates a valid situation, the condition not 
being raised) . Note that if the record 
variable in the READ statement is the null 
string, no data is transmitted into the 
variable but a record is transmitted from 
the data set. In this case, the RECORD 
condition is raised. 

If the RECORD condition is raised on a 
LOCATE statement, the pointer variable is 
not set and the contents of the previously 
located buffer will not be transmitted. 



RECORD I/O offers facilities for han- 
dling data aggregates as single data enti- 
ties, rather than element by element. Cer- 
tain advantages, accordingly, are available 
in terms of efficient access to data set 
records and efficient use of data set 
space, since the data is unconverted and 
unedited. 

When using variable-length (V-format) 
records, the use of spanned (VS- or 
VBS- format) records should be considered. 
Spanned records permit the programmer 
greater flexibility in selecting the opti- 
mum block size for the most efficient 
input/output- process or overlap and external 
storage utilization. 

When using the INDEXED data set organi- 
zation, accessing records in an overflow 
area can slow processing considerably. It 
is recommended that INDEXED data sets are 
regularly recreated so that logically- 
deleted but physically-present records are 
purged from the data set and records are 
collected from the overflow areas into the 
prime data areas. Another good reason for 
making this a regular practice is that when 
the overflow areas are full, records can be 
irretrievably lost. 

Consideration should be given especially 
to the choice between the BUFFERED and 
UNBUFFERED file attributes, available for 
SEQUENTIAL access. A BUFFERED file permits 
the object program to perform "anticipatory 
buffering", that is, overlap of device 
transmission and computing time. An 
UNBUFFERED file, though sometimes saving 
space required for buffers, does not permit 
such overlap, unless the EVENT option is 
used. (It should be noted, in any case, 
that an UNBUFFERED file will require hidden 
buffers if the record format is V, or if 
the data set is INDEXED, or REGIONAL (2) or 
(3).) 



ONKEY 



Built-in 



Function: 



The 



value 



returned by this function is the key of the 
record that caused an I/O condition to be 
raised. This value depends on the condi- 
tion raised and the key option specified in 
the I/O statement: 



1. 



ERROR Condition raised because the I/O 
statement is invalid: 



Opt ion 

KEY | KEYFROM 

KEYTO 



Value returned 
KEY | KEYFROM String 
Null String 



2. I/O condition other than ENDFILE 
raised, or ERROR condition raised 
after data transmission is complete: 



Option 

KEY | KEYFROM 



KEYTO 



Value returned 
Recorded key (or intend- 
ed recorded key produced 
from the source string), 
with length=data-set key 
length; an exception is 
REGIONAL (1), where the 
value is the 8-byte 
character representation 
of the region number. 
Recorded key, with 
length: 

Fixed: Length of KEYTO 

string 

VARYING: As for 

KEY | KEYFROM 



3. ENDFILE condition raised: 



Option 
KEYTO 



Value returned 



Null string 

4. Any condition, or no condition: 

Option Value returned 
None Null String* 

Note: Under the following conditions: 
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Rl: Length of record variable 

R2: Actual or maximum length of data set record 

x If record variable is a VARYING string, then its current length 

is set equal to MIN(R 2 , maximum length of record variable). 
2 Rl=current length if the record variable is a VARYING string. 

* If U-format and the file is UNBUFFERED (and requires no hidden 
buffers), truncation occurs, but the RECORD condition cannot be 
raised since this condition cannot be detected. 

# A short record read from the data set will raise the TRANSMIT 
condition; the RECORD condition is raised only if the length of 
the record variable does not equal LRECL. 

L J 

•Figure 28. Situations under which RECORD Condition is raised in RECORD- Oriented I/O 



1. File is SEQUENTIAL INDEXED 

2. RKP * 

3. The statement was a REWRITE 

if the KEY condition is raised because 
embedded key in the record variable or 
buffer (if there is no FROM option) is 
equal to the embedded key provided on 
preceding READ, then ONKEY returns the 
of the record provided by the READ, 
length of this key is the length of 
data set. 



the 
the 
not 
the 
key 
The 
the 



Input/Output Error Recovery: When I/O 
transmission errors are encountered, 
exhaustive recovery procedures are per- 
formed automatically by data management, so 
that, upon entry to a TRANSMIT ON-unit, it 
is unnecessary and impossible to perform 
further transmission error correction pro- 
cedures. Synchronization of transmission 
errors and entry to relevant ON-units can 
only be guaranteed for input errors. An 
output operation error will be detected in 
a succeeding output operation, the particu- 
lar one being dependent upon the blocking 
factor and the number of allocated buffers. 



Additional Hints 



(1) Operating System and Job Contro l 

External procedures, but not internal 
procedures, are treated as separate control 
sections. 



(2 ) D eclarations and Attributes 

(a) Do not rely too heavily on default 
attributes. Explicit declarations 
help to clarify the source program 
logic, and in some cases (for 
example, precision) reduce the 
chance of error. 

(b) Variables declared FIXED BINARY or 
FLOAT BINARY are automatically 
aligned on the proper word bounda- 
ry, regardless of whether they are 
single or part of an aggregate. 
FIXED DECIMAL variables are stored 
in packed decimal format and the 
System/360 decimal instructions 
are used in operations involving 
them. FLOAT DECIMAL variables are 
stored in floating-point format; 
operations involving them are car- 
ried out using the floating-point 
instruction set. 

(3) Assignments and Initialization 

(a) High order zeros will be inserted 
if required on assignment to or 
initialization of an arithmetic 
variable: 

DCL A FIXED DECIMAL (5,2) INIT (12); 
/*A HAS VALUE 012.00*/ 

DCL B FIXED BINARY (15,0); 

B=12; 

/*B HAS VALUE 000000 000001100B*/ 

(b) Arrays may be initialized by 
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from a scalar expres- 



assignraent 
sion: 

DCL A(10) ; 
A=0; 



The scalar value will be assigned 
to each element of the array. 
Similarly, when a scalar expres- 
sion is assigned to a structure, 
its value will be assigned to each 
element of the structure: 

DCL IB, 

2 C BIT(l) , 

2 D CHAR ( 1 ) , 

2 E CHAR ( H ) ; 
B=0; 

As a result of this assignment, 
the values of the various elements 
will be: 

C 'O'B 
D 'b' 
E •bbbO i 

(*0 DO Groups 

Iterations can step backwards, and the 
expression in the WHILE clause can refer to 
the control variable, e.g., 

DO I=N+2*L BY -X WHILE (I>0); 
END; 

The control variable can be modified within 
the loop. 



It is possible to transfer from within a 
DO loop to a label on the END statement for 
the group. This has the effect of incre- 
menting the control variable without inter- 
mediate processing; control will not fall 
through. It is also possible to transfer 
out of an iterative DO group before the 
terminating value of the control variable 
is reached. 



(5) Functions 



The arguments in a function reference 
can be modified by the function. 

(6) ON-conditions and ON- units 

Note the scope of condition prefixes: 

(SIZE) :A:PROC; 



(NOSIZE):IF M>N THEN DO; 
J=E+F; 
END; 



END A; 

In the above example, SIZE is disabled 
only during the evaluation of the 
expression M>N; SIZE is enabled for the 
assignment J=E+F. 
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TESTING PROGRAMS 



Programs can be checked using the debug- 
ging facilities provided by PL/I. When the 
user is satisfied that his program is 
working correctly, debugging statements 
should be removed from the source deck, 
which is then recompiled to produce an 
optimum object program ready for execution. 



Standard system action for an ERROR 
condition raised in a non-tasking environ- 
ment causes the FINISH condition to be 
raised. 



ON-Codes 



DEBUGGING FACILITIES 



Certain language features are provided 
in PL/I to assist the programmer to debug 
his program. The facilities include: 

Control over interruptions and error 
handling 

The ability to obtain a trace of active 
procedures 

Symbolic output 

Communication with the program during 
execution 



The ONCODE built-in function may be used 
by the programmer in any ON-unit to deter- 
mine the nature of the errqr or condition 
which caused entry into that ON-unit. 

An ON-unit, which has been established 
by the execution of an ON statement, is 
entered when the associated ON-condition is 
raised during execution of PL/I compiled 
code or of a PL/I library module. Thus, 
for example, a FIXEDOVERFLOW ON-unit would 
be entered whenever any of the conditions 
occur for which the language demands the 
raising of the FIXEDOVERFLOW condition. 

Two ON-conditions, ERROR and FINISH, 
require special explanation. The ERROR 
condition is raised: 



The use of specific language features 
provides the debugging facilities; in addi- 
tion, the programmer may use his own tech- 
niques, such as inserting PUT statements at 
selected points. 



1. Upon execution 
statement 



of 



SIGNAL 



ERROR 



2. As a result of system action for those 
ON-conditions for which the language 
specifies system action to be "comment 
and raise the ERROR condition" 



Control of Interruption a n d Error Handling 



Some conditions may be enabled or disa- 
bled by means of the prefix option feature, 
full details of which can be found in the 
publication IBM System/360 Operating Sys- 
tem, PL/I Reference Manual . 

In association with this, the programmer 
may specify his own exit (to be taken when 
a particular condition occurs) or may cause 
an interruption by means of the SIGNAL 
statement. In particular, attention should 
be paid to the CHECK condition, as this 
enables the programmer to maintain a close 
watch on any variables he wishes to nomi- 
nate. 

Should the programmer wish to exercise 
control of a more general nature, he may 
make use of the ERROR condition and, in his 
"ON-unit" further analyze the program by 
means of the ONCODE and ONLOC functions. 



3. As a result of an error (for which 
there is no ON-condition) occurring 
during program execution 

The FINISH condition is raised: 

1. Upon execution of a SIGNAL FINISH, 
STOP, or EXIT statement 



2. 



3. 



Upon normal completion of 
procedure of a PL/I program 



the MAIN 



Upon completion of the action asso- 
ciated with the raising of the ERROR 
condition, except when a GO TO state- 
ment in the ON ERROR unit has resulted 
in transfer of control out of that 
unit 



As a general rule, the value of the 
ON-code returned by the ONCODE function is 
that of the specific condition which caused 
entry into the ON-unit. Thus, in an ON 
CONVERSION unit, the programmer can expect 
an ON code corresponding to one of the 
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conversion conditions which cause the CON- 
VERSION condition to be raised in PL/I. 
However, this is not necessarily true when 
executing an ON ERROR or an ON FINISH unit; 
the values are as follows: 

1. When entered as a result of a SIGNAL 
ERROR or a SIGNAL FINISH, STOP or EXIT 
statement, or as a result of normal 
termination, the ON code values will 
be those of ERROR or FINISH respec- 
tively. 

2. When entered for any other reason, the 
ON code value will be that associated 
with the error or condition which 
originally caused the ERROR condition 
to be raised. 

Several separate but related occurrences 
may cause a particular PL/I ON-condition to 
be raised. For example, the TRANSMIT con- 
dition may be raised: 



1. 



By execution of 
statement 



SIGNAL TRANSMIT 



By occurrence of an input TRANSMIT 
error 



3. 



By occurrence of an output 
error 



TRANSMIT 



Although it is often useful to know prec- 
isely what caused an ON-condition to be 
raised, at times it will be sufficient 
simply to know which ON-condition was 
raised. This will apply particularly if 
the ONCODE function is used in an ERROR 
ON-unit after system action has occurred 
for an ON-condition. The ON codes have 
therefore been grouped, each group contain- 
ing the codes associated with a particular 
ON-condition. 

From time to time it may become neces- 
sary or desirable to add new ON-codes into 
a group. Perhaps a group containing one 
ON-code only may be expanded. This fact 
must be remembered when the ONCODE function 
is used to determine if a particular PL/I 
ON-condition has been raised. It is impor- 
tant to test to see whether the ON-code is 
within the range specified, even if there 
is only one ON-code in the range; other- 
wise, when a new set of library modules is 
used, it may become necessary to recompile 
the program. 

When a group contains only one ON-code 
value, it is impossible to test specifi- 
cally for the signaled condition. With 
more than one ON-code in the group, the 
first in the group represents the signaled 
condition, provided the program was com- 
piled using a compiler which was released 
at the same time as the library in which 
the expansion of the group first appeared. 



The ON-codes and their associated condi- 
tions and errors are shown below. The 
groups and their ON-code ranges are shown 
in Figures 29 and 30. Language ON- 
conditions are shown in capitals, others in 
lower case letters.) 



Code Condition/Error 

ONCODE function used out of context 

3 Source program error 

4 FINISH 
9 ERROR 

10 NAME 

20 RECORD (signaled) 

21 RECORD (record variable smaller than 
record size) 

22 RECORD (record variable larger than 
record size) 

2 3 RECORD (attempt to write zero length 

record) 
24 RECORD (zero length record read) 

40 TRANSMIT (signaled) 

41 TRANSMIT (output) 

42 TRANSMIT (input) 

50 KEY (signaled) 

51 KEY (keyed record not found) 

52 KEY (attempt to add duplicate key) 
5 3 KEY (key sequence error) 

54 KEY (key conversion error) 

55 KEY (key specification error) 

5 6 KEY (keyed relative record/track 

outside data set limit) 
57 KEY (no space available to add keyed 

record) 
70 END FILE 
8 UNDEFINEDFILE (signaled) 

81 UNDEFINEDFILE (attribute conflict) 

82 UNDEFINEDFILE (access method not 
supported) 

8 3 UNDEFINEDFILE (blocksize not 

specified) 
8 4 UNDEFINEDFILE (file cannot be 

opened, no DD card) 

8 5 UNDEFINEDFILE (error initializing 

REGIONAL data set) 

9 ENDPAGE 
300 OVERFLOW 

310 FIX EDOVER FLOW 

320 ZERODIVIDE 

330 UNDERFLOW 

340 SIZE (normal) 

341 SIZE (I/O) 
350 STRINGRANGE 

360 AREA raised in ALLOCATE statement 

361 AREA raised in assignment statement 

362 AREA signaled 
500 CONDITION 

510 CHECK (LABEL) 

511 CHECK (VARIABLE) 
520 SUBSCRIPTRANGE 

600 CONVERSION 

601 CONVERSION 
60 2 CONVERSION 
60 3 CONVERSION 
604 CONVERSION 

(I/O) 



(internal) (signaled) 

(I/O) 

(transmit) 

(error in F- format input) 

(error in F- format input) 
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605 

606 
607 

608 

6 09 
610 

611 

612 

613 

614 

615 

616 

617 

618 
619 

620 

6 21 

622 

623 

624 

625 

626 

627 

628 

629 

1000 
1001 
1002 
1003 

1004 
1005 

1006 

1007 

1008 

1009 
1010 
1011 
1012 
1013 

1014 



(error in B- format input) 
(error in B- format input) 

(error in B- format input) 

(character string to 



(character to picture) 
(P-format input - 



CONVERSION (error in F- format input) 
(transmit) 

CONVERSION (error in E- format input) 
CONVERSION (error in E- format input) 
(I/O) 

CONVERSION (error in E- format input) 
(transmit) 
CONVERSION 
CONVERSION 
(I/O) 

CONVERSION 
(transmit) 
CONVERSION 
arithmetic) 
CONVERSION (character string to 
arithmetic) (I/O) 
CONVERSION (character string to 
arithmetic) (transmit) 
CONVERSION (character string to bit 
string) 

CONVERSION (character string to bit 
string) (I/O) 

CONVERSION (character string to bit 
string) (transmit) 
CONVERSION (character to picture) 
CONVERSION (character to picture) 
(I/O) 

CONVERSION 
(transmit) 
CONVERSION 
decimal) 

CONVERSION (P-format input - 
decimal) (I/O) 

CONVERSION (P-format input - 
decimal) (transmit) 
CONVERSION (P-format input - 
character) 

CONVERSION (P-format input - 
character) (I/O) 
CONVERSION (P-format input - 
character) (transmit) 
CONVERSION (P-format input - 
sterling) 

CONVERSION (P-format input - 
sterling) (I/O) 
CONVERSION (P-format input - 
sterling) (transmit) 
Attempt to read output file 
Attempt to write input file 
GET/PUT string length error 
Unacceptable output transmission 
error 

Print option on non-print file 
Message length for DISPLAY state- 
ments zero 

Illegal array datum data-directed 
input 

REWRITE not immediately preceded by 
READ 

GET STRING — unrecognizable data 
name 

Unsupported file operation 
File type not supported 
Inexplicable I/O error 
Outstanding READ for update exists 
No completed READ exists - incorrect 
NCP value 
Too many incomplete I/O operations 



1015 EVENT variable already in use 

1016 Implicit-OPEN failure - cannot pro- 
ceed 

1017 Attempt to REWRITE out of sequence 

1018 ERROR condition raised if end-of- 
file is encountered before the 
delimiter while scanning list- 
directed or data-directed input, or 
if the field width in the format 
list of edit-directed input would 
take the scan beyond the end-of- 
file, 

1019 Attempt to close file not opened in 
current task 

1500 Short SQRT error 

1501 Long SQRT error 
150 4 Short LOG error 
150 5 Long LOG error 

1506 Short SIN error 

1507 Long SIN error 

1508 Short TAN error 

1509 Long TAN error 

1510 Short ARCTAN error 

1511 Long ARCTAN error 

1514 Short ARCTANH error 

1515 Long ARCTANH error 

155 Invalid exponent in short float 

integer exponentiation 
1551 Invalid exponent in long float 

integer exponentiation 
155 2 Invalid exponent in short float 

general exponentiation 

1553 Invalid exponent in long float gen- 
eral exponentiation 

1554 Invalid exponent in complex short 
float integer exponentiation 

1555 Invalid exponent in complex long 
float integer exponentiation 

1556 Invalid exponent in complex short 
float general exponentiation 

1557 Invalid exponent in complex long 
float general exponentiation 

1558 Invalid argument in short float 
complex ARCTAN or ARCTANH 

155 9 Invalid argument in long float com- 
plex ARCTAN or ARCTANH 

2000 Unacceptable DELAY statement 

2001 Unacceptable use of the TIME built- 
in function 

3000 E-format conversion error 

3001 F-format conversion error 

3002 A-format conversion error 
300 3 B-format conversion error 
3004 A-format input error 

300 5 B-format input error 

3006 Picture character string error 

3798 ONSOURCE or ONCHAR out of context 

3799 Improper return from CONVERSION 
ON- unit 

3800 Structure length > 16**6 bytes 

3801 Virtual origin of array > 16**6 or < 
-16**6 

3900 Attempt to wait on inactive and 
incomplete event 

3901 Task variable already active 

3902 Event already being waited on 
390 3 Wait on more than 2 55 incomplete 

events 
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j Range 
j. 

3-5 

10-199 

300-399 

500-549 

600-899 

1000-9999 



Group 

As for 1000-9999 
I/O ON-conditions 
Computational ON-conditions 
Program check-out conditions 
Conversion conditions 
Error conditions (also 3-5) 



Figure 29. Main ON-Code Groupings 



Range | 



Group 



j Range j 



Group 



■+- 



•+- 





3 

4 

9 

10-19 

20-39 

40-49 

50-69 

70-79 

80-89 

90-99 

100-299 

300-309 

310-319 

320-329 

330-339 

340-349 

350-359 

360-369 

370-499 

500-509 



ONCODE 

Source program error 

FINISH 

ERROR 

NAME 

RECORD 

TRANSMIT 

KEY 

ENDFILE 

UNDEFINEDFILE 

ENDPAGE 

(Unallocated) 

OVERFLOW 

FIXEDOVERFLOW 

ZERODIVIDE 

UNDERFLOW 

SIZE 

STRINGRANGE 

AREA 

(Unallocated) 

CONDITION 



510-519 
520-529 

530-599 

600-899 

900-999 

1000-1199 

1200-1499 

1500-1699 

1700-1999 

2000-2099 

2100-2999 

3000-3499 

3500-3799 

3800-3899 

3900-3999 

4000-8090 

8091-8199 

8200-8999 

9000-9999 



CHECK 
SUBSCRIPTRANGE 

(Unallocated) 

CONVERSION 

(Unallocated) 

I/O errors 

(Unallocated) 

Data processing errors 

(Unalloca ted) 

Unacceptable statement errors 

(Unallocated) 

Conversion errors 

(Unallocated) 

Structure and array errors 

Tasking errors 

(Unalloca ted) 

Program interrupt errors 

(Unallocated) 

System errors 



Figure 30. Detailed ON-Code Groupings 



3 904 Active event variable as argument 
to COMPLETION pseudo-variable 

39 05 Invalid task variable as argument 
to PRIORITY pseudo-variable 

3906 Event variable active in assignment 
statement 

3907 Event variable already active 

3908 Attempt to wait on an I/O event in 
wrong task 

8 091 Invalid operation 

8092 Privileged operation 

8093 EXECUTE statement executed 
8 094 Protection violation 

8095 Addressing interruption 

8096 Specification interruption 
8 097 Data interruption 

9000 Too many active ON-units and entry 

parameter procedures 
9002 Invalid free storage (main 

procedure) 



statement. However, this technique has the 
limitation that it records only procedures 
which are active at the time when the 
condition occurs, because of the use of 
dynamic storage; when the storage is 
released it is immediately available for 
some other use, and so cannot be used to 
maintain a full trace. If a full flow 
trace is required, then this should be 
programmed, either by means of the SIGNAL 
statement in association with an ON state- 
ment and ON-unit, or by specifying all 
procedure names in a CHECK list with the 
appropriate action in an ON-unit. 



The format of the SNAP output is 
of the following: 



either 



Trace of Active Procedures 



1. CONDITION xxxx OCCURRED 
hhhhh FROM ENTRY POINT El 



AT OFFSET ± 



A trace of active procedures may be 
obtained by use of the SNAP option in an ON 



2. 



CONDITION XXXX OCCURRED AT OFFSET ± 
hhhhh FROM ENTRY POINT OF XXXX ON-UNIT 
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followed by: 



CALLED FROM PROCEDURE WITH ENTRY POINT 

E2 

CALLED FROM PROCEDURE WITH ENTRY POINT 

E3 

etc. , etc. 



If the statement number compiler option 
is specified, the SNAP output message will 
also contain IN STATEMENT nnnnn immediately 
following the word OCCURRED in the first 
line, or after the word CALLED in subse- 
quent lines. The notation nnnnn gives the 
number of the statement in which the condi- 
tion occurred. 



The characters that replace xxxx are an 
abbreviated form of the name of the 0N- 
condition which has occurred (the 
abbreviations are given in Figure 31). 
hhhhh is a hexadecimal offset; El, E2, 
etc. , are entry point names indicating the 
actual entry points used to enter the 
procedure in which the condition occurred, 
or from which the next named entry point 
was called. 



CALLED FROM PROCEDURE WITH ENTRY POINT 

E2 

etc. 

The one exception is the case of SNAP 
SYSTEM for the CHECK conditions. In these 
cases a standard SNAP message will be 
written, followed by the standard system 
action print-out for the CHECK condition. 



Symbolic Output 



The data-directed input/output features 
may be used instead of, or in addition to, 
the CHECK condition handling. The program- 
mer may use data-directed output to obtain 
status information in terms of the symbols 
used in the source program. Refer to the 
publication IBM Sy s tem/3 60 Operating Sys- 
tem., PL/I: Refrence Manual , for a full 
description of this feature. 



Com mun i cation with the Program 



If a condition occurs in an ON- unit, 
then the entry point name in the second 
line will be that of the procedure from 
which the ON-unit was entered, not neces- 
sarily the procedure in which the ON-unit 
is situated. 



Condition 



Abbreviation 



| OVERFLOW | 


OFL 




| SIZE 


SIZE 




| FIXEDOVERFLOW 


FOFL 




| SUBSCRIPTRANGE | 


SUBRG 




| CHECK 


CHCK 




| CONDITION | 


COND 




| FINISH | 


FIN 




| ERROR | 


ERR 




| ZERODIVIDE | 


ZDIV 




| UNDERFLOW | 


UFL 




| STRINGRANGE | 


STRG 




| NAME 


NAME 




| RECORD 


REC 




| TRANSMIT 


TMIT 




| KEY 


| KEY 




| ENDFILE 


ENDF 




| UMDEFINEDFILE 


| UNDF 




| CONVERSION 


CONV 




| ENDPAGE 


ENDP 











Figure 31. Abbreviations for ON-Conditions 

If SNAP SYSTEM has been specified in a 
programmer's ON statement, the system 
action message described in the section 
called "Object Time Diagnostic Messages" 
will be printed, followed by the trace of 
active procedures: 



The DISPLAY statement provides a means 
of communicating with the program while it 
is being executed. 

The two forms in which an operator 
message can appear on the typewriter are as 
follows : 

Without the REPLY option, which gives 
the unaltered character string speci- 
fied by the programmer. 

With the REPLY option, which gives the 
character string specified by the pro- 
grammer preceded by a two-digit code 
generated by the Operating System. The 
operator must use this code as a prefix 
to his reply message. The EVENT option 
may be used here. 



User R e quested Dump 

An additional debugging feature is the 
ability to obtain a storage dump at any 
point in the program. 

A dump is obtained by the statement: 

CALL dump identifier [(argument)]; 

The dump identifier is one of the fol- 
lowing 

IHEDUMP or IHEDUMT - dump all core and 
terminate 
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IHEDUMJ or IHEDUMC - dump all core and 
continue processing 

The dump will include information such 
as register values, load list, contents of 
PIE, and a storage dump. To help the user 
interpret the dumps, a directory is printed 
out at the start of each dump. This 
directory includes: 



1. The contents of the SYSPRINT 
buffers, if the file is open. 



file 



This results in execution of the ABEND 
macro. 



6. An ABEND in OS/3 60 in the major task. 



In cases (5) and (6) above, a full 
storage dump will be printed, provided that 
a SYSABEND DD card has been used. If no 
such card exists, and MFT or PCP is being 
used, an indicative dump will be printed. 



2. The name of the files currently open, 
with the addresses of the relevant 
control blocks. 

3. The name of the current file, 

4. The addresses of the save areas and of 
other areas of special interest. 

The argument in the CALL Statement is 
optional; if it is used the dump identifier 
must be declared as ENTRY(FIXED BINARY). 
The argument is an expression that is 
evaluated at execution-time; the result is 
a fixed binary integer that appears in the 
heading of the dump. This integer must be 
in the range to 127, a number outside 
this range is replaced by 127. 

If no DD card is supplied, or if an 
unrecoverable error is detected during the 
output, e.g. incorrect chaining of save 
areas, then a standard operating system 
ABEND dump will occur and will terminate 
the job step. 

For more information on storage dumps 
and the information they provide, see IBM 
System/36 Operating Syste m: M essage s , Com- 
pletion Codes and Storage Dumps , Form 
C28-6631. 



User Completion Codes for Abnormal 
Termination 



PL/I programs can terminate abnormally 
in six different ways: 

1. EXIT (abnormal termination of a task) 

2. STOP (abnormal termination of the 
program) 

3. If the ERROR condition is raised and 
there is neither an ERROR ON-unit nor 
a FINISH ON-unit with a GO TC state- 
ment. 

4. CALL IHEDUMP or CALL IHEDUMT. 

5. If an interrupt occurs during execu- 
tion of the error handler routine. 



If, in cases (1) to 
terminates abnormally in a 
gram, a completion code is 
the first four cases lis 
completion code has a va 
sum of a basic code plus th 
of the return code. (The 
be set by the programmer 
default value of zero 
"Managing Programs". ) 
values are: 

EXIT and STOP 
ERROR 

CALL IHEDUMP 
Interrupt in error 
handler 



(5) , a program 
non-tasking pro- 
printed out. In 
ted above, the 
lue which is the 
e current value 

return code can 
or may have a 

see the chapter 
The basic code 



1000 
2000 
3000 
4000 



When a program terminates abnormally with a 
completion code of 4000, this means that 
disastrous error has occurred, such as a 
control block being overwritten. 

When a program terminates abnormally 
with a completion code of 33 33 this means 
that a disastrous error has occurred in the 
dump output modules. 

When the operating system terminates a 
program, the user completion code is zero, 
and the system completion code is the 
operating system completion code. 

There are two instances in which, since 
execution of the program has never com- 
menced, no user completion code is issued. 
Instead, a special return code value is 
generated by the PL/I library and then 
passed to the return code register of the 
operating system in the usual way. These 
two instances, and the return codes gener- 
ated, are: 

Pseudo-register vector too long 4004 

■rM-orlnvo 4008 



racuuu icyioici v< 

No MAIM procedure 



All the 4 000-series codes mentioned 
above are accompanied by a message at the 
operator's console. (For further explana- 
tion of the underlying causes of these 
messages, refer to the explanations given 
for each message in "Object-Time Error 
Messages" in Appendix G of this publica- 
tion. ) 
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Return Codes 



Return codes are set by use of the 
statement CALL IHESARC. 
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APPENDIX A: DATA FORMATS 



COMPILER INPUT 



REPRESENTATION OF DATA 



Source records must be in one of the two 
following formats: 



Fixed-length records of logical record 
length up to 100 characters. Blocked 
records are acceptable. The maximum 
block size must be a multiple of the 
logical record length and must be one 
capable of being accommodated by the 
SIZE option. 

However, blocked records are not 
accepted from paper tape. Fixed-length 
records on- 1 "- paper tape have a fixed 
number of characters after translation; 
the number] of characters before tran- 
slation is not fixed. 

Undefined format records of length up 
to 100 characters. 

The format, logical record length, and 
block size may be specified in the DCB 
operand in the DD statement, they may be 
taken from the data set label, or they may 
be implied from the occurrence of the 
source file in the input stream. If not 
specified, undefined format is assumed with 
a block size of 100. 

In order to use the undefined format, 
the identity of SYSIN must be switched to 
the appropriate input device for the dura- 
tion of the compilation job- step by means 
of a DD statement, either explicit or 
cataloged, for that job-step. The DD 
statement must specify U-type record for- 
mat, and if the input is of paper tape 
origin, the appropriate translate mode must 
also be specified, depending on the nature 
of the tape code. The user must ensure 
that an end-of-record indication is given 
by the correct code on the paper tape, with 
the paper tape reader keys set correctly to 
interpret the code. 

In both cases the source listing option 
(SOURCE) causes the complete input record 
to be printed. 



The SORMGIN option speci 
within the record which c 
source text. The rest of the 
used for identification purpos 
GIN is not specified, the stan 
values of 2 and 72 are ass 
section called "Compiler Proce 
description of the SORMGIN opt 



fies the area 
ontains PL/I 
record may be 
es. If SORM- 
dard default 
umed (see the 
ssing" for a 
ion) . 



The representation of data in System/360 
storage is described in the following para- 
graphs, together with the various permitted 
precisions and lengths of such data. 



Coded Arithmetic Data 



By virtue of declared attributes, the 
following eight types of coded arithmetic 
data forms may exist: 

REAL FIXED DECIMAL precision (P,Q) data 
is represented in the packed- decimal for- 
mat. The P digits occupy FLOOR ( (P + 2)/2) 
bytes, aligned on any byte. When P is 
even, the effective precision is (P + 1,Q) 
for arithmetic operations other than divi- 
sion. An unwanted high-order digit may 
exist, therefore, and may remain undetected 
and be included in further operations. It 
can only be eliminated if SIZE is enabled. 
The maximum precision avaialble is 15 
digits. Arithmetic operations are per- 
formed on P-digit integers, according to 
the scale factor Q. The scale factor is 
not directly associated in storage with the 
data, but is specified in a data element 
descriptor (DED) passed to the library for 
operations involving the data. The default 
precision is 5,0. 

REAL FIXED BINARY precision (P,Q) data 
is represented in the fixed-point binary 
format. The P digits occupy four bytes, 
word aligned (half-word or double-word pre- 
cision is not supported) . The maximum 
precision is 31 digits. Arithmetic opera- 
tions are performed as for real fixed 
decimal data; again, the scale factor is 
supplied to the library via a DED. The 
default precision is 15,0. 

REAL FLOAT DECIMAL precision (P) data is 
represented in the hexadecimal floating- 
point format. Before and after arithmetic 
operations, the data is normalized in 
storage. The maximum available precision 
is 16 digits. If the specified precision 
is less than or equal to 6, the data 
bytes, word aligned (short 
form). If the specified 
7 or more, the data occupies 
double-word aligned (long 
The default preci- 



occupies four 
floating-point 
precision is 
eight bytes, 
floating-point form) . 
sion is 6. 
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T 



Declared 




Default 




Maximum 






Default 




attributes 




attributes 






precision 




precision 






1 




1 








1 






Initial letter: 


1 




1 








1 






A --> 


H, — > Z 




REAL, FLOAT, DECIMAL 






- 






6 decimal 


digits 


I — > 


N 


1 


REAL, FIXED, BINARY 


I 




- 




1 


15 bits 




BINARY 


1 


REAL, FLOAT 


1 


53 


bits 




1 


21 bits 




DECIMAL 




REAL, FLOAT 




16 


decimal 


digits 




6 decimal 


digits 


FIXED 






REAL, DECIMAL 




15 


decimal 


digits 




5 decimal 


digits 


FLOAT 






REAL, DECIMAL 




16 


decimal 


digits 




6 decimal 


digits 


REAL 1 




1 


FLOAT, DECIMAL 


1 


16 


decimal 


digits 


i 


6 decimal 


digits 


FIXED 


BINARY 


1 


REAL 


1 


31 


bits 




1 


15 bits 




FIXED 


DECIMAL 




REAL 




15 


decimal 


digits 




5 decimal 


digits 


FLOAT 


BINARY 




REAL 




53 


bits 






21 bits 




FLOAT 


DECIMAL 


I 


REAL 


1 


16 


decimal 


digits 


1 


6 decimal 


digits 


REAL 1 


FIXED 


1 


DECIMAL 


1 


15 


decimal 


digits 


1 


5 decimal 


digits 


REAL 1 


FLOAT 




DECIMAL 




16 


decimal 


digits 




6 decimal 


digits 


REAL 1 


BINARY 




FLOAT 




53 


bits 






21 bits 




REAL 1 


DECIMAL 




FLOAT 




16 


decimal 


digits 




6 decimal 


digits 



J. . J. X 



Note 1: If COMPLEX is declared instead of REAL, the attributes 
for REAL and are applied to each of the two arguments. 



are the same as 



L J 

Figure 32. Attributes and Precisions for Coded Arithmetic Data 



REAL FLOAT BINARY precision (P) data is 
represented in the hexadecimal floating- 
point format. Before and after arithmetic 
operations the data is normalized in 
storage. The maximum available precision 
is 53 digits. If the specified precision 
is less than or equal to 21 the data 
occupies four bytes, word aligned (short 
floating-point form). If the specified 
precision is 22 or more, the data occupies 
eight bytes, double-word aligned (long 
floating-point form) . The default preci- 
sion is 21. 



COMPLEX FIXED DECIMAL precision (P,Q) 
data is represented as for REAL FIXED 
DECIMAL. The real and imaginary parts 
occupy immediately adjacent fields, the 
real part first. 

COMPLEX FIXED BINARY precision (P, Q) 
data is represented as for REAL FIXED 
BINARY. The real and imaginary parts occu- 
py immediately adjacent full words, the 
real part first. 

COMPLEX FLOAT DECIMAL precision (P) data 
is represented as for REAL FLOAT DECIMAL. 
The real and imaginary parts occupy immedi- 
ately adjacent full or double words, 
depending upon the precision; the real part 
occupies the first field. 

COMPLEX FLOAT BINARY precision (P) data 
is represented as for REAL FLOAT BINARY. 
The real and imaginary parts occupy immedi- 
ately adjacent full or double words. 



depending upon the precision; the real part 
occupies the first field. 



Str ing Dat a 



There are four types of string data: 

1. Fixed-length CHARACTER 

2. Fixed-length BIT 

3. Variable- length CHARACTER 

4. Variable- length BIT 

Variable-length data has associated con- 
trol areas known as "dope vectors" which 
describe the strings. A dope vector con- 
tains a record of the maximum length and 
the current length of the string, together 
with a pointer to the beginning of the 
string. Dope vectors need not be adjacent 
to the data they describe, but will normal- 
ly occupy storage of the same storage 
class. 

A string dope vector is created for all 
variable-length strings. In addition a 
dope vector is created for any fixed -length 
string which is an argument to either a 
procedure or a library routine. A 
variable-length string is addressed through 
its dope vector. A fixed-length string may 
be addressed directly or, if it has one, 
through its dope vector. Refer to Appendix 
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c of this publication for a detailed 
cription of string dope vectors. 



des- 



CHARACTER data is stored contiguously 
from the left end of a field long enough to 
accommodate the maximum length declared for 
the string. The leftmost byte has no 
special alignment: it is this byte which is 
addressed by a CHARACTER string's dope 
vector. 



BIT data may be either 
ALIGNED. Both are stored 
byte. Unalignment refers to 
location of adjacent stri 
density of a single string, 
fields occupy an integral n 
Unaligned data fields occupy 
bits as their maximum length 
data is stored contiguously 
most bit of its field, and i 
this leftmost bit. 



UNALIGNED or 

eight bits per 

the relative 

ngs, not to the 

Aligned data 

umber of bytes. 

only as many 

s require. BIT 

from the left- 

s addressed at 



represented as two immediately adjacent 
byte fields, the real part first. Both 
parts are described by the single picture 
specification which is as described for a 
REAL fixed decimal numeric field. 

COMPLEX PICTURE (floating decimal 
picture) data - the real and imaginary 
parts are represented as two immediately 
adjacent byte fields, the real part first. 
Both parts are described by the single 
picture specification which is as described 
for a REAL float decimal numeric field. 

CHARACTER, but not BIT, string data may 
be specified by a PICTURE attribute. The 
data is represented by one byte per charac- 
ter on a byte boundary. 

The picture field contains the declared 
picture specification without its surround- 
ing quotation marks and with iteration of 
characters expanded. 



Pictured Data 



Data declared with a PICTURE attribute 
is stored in two fields. One field con- 
tains the picture information, the other 
the data element. The data is addressed 
independently of the picture information. 
Pictured data requires two addresses. 

Data of either type, arithmetic or 
string, may be specified by a PICTURE 
attribute. A pictured arithmetic data item 
is termed a numeric field. There are five 
types of numeric fields, which are des- 
cribed as follows: 

REAL PICTURE (fixed decimal picture) 
data is represented by bytes on a byte 
boundary. The precision of a fixed decimal 
numeric field may not exceed the limits for 
the corresponding coded arithmetic form, 
i.e., 15 digit positions. 

REAL PICTURE (float decimal picture) 
data is represented by bytes on a byte 
boundary. The precision must not exceed 
the limits for the corresponding coded 
arithmetic form, i.e., 16 digit positions 
and an exponent of P digits where P is 
defined as for the exponent of an E format 
item. 

REAL PICTURE (sterling picture) data is 
represented by bytes on a byte boundary. 
The precision is 3 + number of digits in 
the pound field + number of fractional 
digits in the pence field; this must not 
exceed the limits for the coded fixed 
decimal form, i.e., 15 digit positions. 

COMPLEX PICTURE (fixed decimal picture) 
data - the real and imaginary parts are 



Data El ement Descriptor (PEP) 



The format of the data element descrip- 
tor (DED) (Figure 33) is as follows: 

Flags: An eight-bit encoded form of 
declared information (see Figure 34). 

The P byte is the declared or default 
precision of the data item. Maximum values 
are: 

Binary Fixed: 31 

Binary Float: 53 

Decimal Fixed: 15 

Decimal Float: 16 

The Q byte is the declared or default 
scale factor of the data item in excess 128 
notation (i.e., if the implied fractional 
point is between the last and next to last 
digit, Q will have the value 129). For 
numeric fields, Q is the resultant scale 
factor derived from the apparent precision 
as specified in the picture, i.e., the 
number of digit positions after a V picture 
item as modified by an F (scale factor) 
item. 

The W byte specifies the number of bytes 
allocated for the numeric field. 

The L byte specifies the number of bytes 
allocated for the picture associated with a 
numeric field; if the data item is string, 
L occupies two bytes; if arithmetic, one 
byte. 

The picture specification field contains 
the picture declared for the data item; if 
the data item is string, the picture may 
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Data Type | Representation \- 



DED Formats (in Bytes) 



■T T T 

I 2 | 3 I 4 



■T T 

| 5 | 6, 



Fixed-point | III 

I III 

Arithmetic! Floating-point | Flags | P | 3 | 

I III 

Packed-decimal | III 



I I 

I I 

I I 

I I 



Numeric Field 



h 



Flags | P | G 



4 

Picture | 
< 

I 

-I 

I 
j 



Unpictured | Flags | | 

String j- 1 + J- 

Pictured j Flags j L 

L X X I 

Figure 33. Data Element Descriptor (DED) 
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String f 



Arith- 
metic 



4- 



Unaligned! Fixed | Pictured | Bit 



■+- 



| Aligned | Vary- \ Un- | Charac- | 
j j ing | pictured j ter j 



j Non- j Short | Numeri c | Deci- 
I Sterling | j Field j mal 
|. x x x 



Fixed | Real 
I 



H 



I Sterling | Long | Coded 
. — x x x 



| Binary | Float | Complex | 

.X X X J 



Figure 34. Eight-Bit Encoded Form of Declared Information in Flags 



= 
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= 

= 1 



occupy 1 through 32,767 bytes; if arithmet- 
ic, 1 through 255 bytes. If the original 
picture specification contained iteration 
factors, it will have been fully expanded. 



Pointer Data 

A pointer variable is stored as four 
bytes aligned on a fullword boundary. The 
four bytes contain: 

Byte 0: Zero 

Bytes 1-3: A (Based variable): 

For null values, the four bytes contain 
X'FFOOOOOO*. 



Label Data 



Data of type LABEL takes on the values 
of statement labels. Label variables occu- 
py a two-word field aligned to a fullword 
address. The field is used as follows: 

Word 1: Activation indicator 

Word 2: Bits 0-7 Gives nature of 

activation indicator 
Bits 8-31 Address of statement 

in object program 



The data is 
word address. 



Task Data 



addressed at the first full- 



Offset Data 



An offset variable is stored in 
bytes aligned on a fullword boundary, 
data consists of byte offsets. The 
value is X'FFOOOOOO". 



four 

The 

null 



A task variable is stored in a 28-byte 
area aligned on a fullword boundary. The 
format is shown in Figure 35. On 
allocation, the compiler initializes the 
variable as follows: 

Byte : Zero 

Byte 8-11: A (Symbol table entry) 
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12 



r _ T _"T 

A|D| Unused 

_JL_X 



7 8 

T" 



31 



H- 



A(PRV VDA) 



A (Task control block) 



^ v 



A (Symbol table entry) 



A (Event variable) 



Limit priority J Despatching priority 

j. 



Chain- back address 
Chain- forward address 



L_. 



Figure 35. Format of the Task Variable 



The flags set are: 



A = TASK variable inactive 
= 1 TASK variable active 

D = CALL with TASK option 
= 1 CALL without TASK option 



Event Data 



An event variable is stored in a 32 -byte 
area aligned on a fullword boundary. The 
formats are shown in Figures 36 and 36.1. 
On allocation, the compiler initializes the 
variable as follows: 



Byte 0: Zero 

Byte 4: Zero 

Status: Zero 

Flag : Zero 



I— 



FLAG 1 



7 8 

■~T — 



A (Event DECB/FCB) 



31 



FLAG 2 | 
X. 



Unused 



Chain-forward address (task) 



Chain-back address (task) 



Status 



Unused 



Chain-forward pointer (file) 



Chain-back pointer (file) 



A (Task PRV) 

L J 

Figure 36. Event Variable Used with I/O 
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FLAG 2 | 
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ECB 




Unused 


Unused 


Status 




) Statement 

X 


number 


. _ _ p — 

Unused | 

_ _ _ _x 


T T 

MCF | WTF j 

X X 


Unused 


Infinite Wait ECB 


Wait 


to Terminate ECB 





31 



L J 

•Figure 36.1. Event Variable Used with a 
Task 

The flags set are: 

Flag 1 

I/O Event 

1000 0000 Active EVENT variable 

0100 0000 EVENT variable associated 

with I/O 
0010 0000 No WAIT required 
0001 0000 A(FCB) in first word of 

variable 
0000 1000 EVENT variable to be checked 
0000 0100 DISPLAY EVENT variable 
0000 0010 IGNORE option with this 

event 



Task EVENT 

0000 0000 Multitasking non-I/O EVENT 

variable 
1000 0000 Active FVENT variable 
0010 0000 Normal PL/I termination 

0001 00 00 Abnormal PL/I termination 
0000 00 01 EVENT variable being waited 

on 



Flag 2 



I/O EVENT 



EVENT being waited for 
EVENT is complete 



1000 0000 
0100 0000 



Area Data 



An area variable is stored as 16 bytes 
plus the area length required; it is 
aligned on a doubleword boundary. The 
format is shown in Figure 37 . The ADDR 
function applied to an area returns the 
address of the 16-byte area, not of the 
area itself. An area is described by an 
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area dope vector (see Appendix C, 'Object 
Program Organization and Conventions') 



7 8 31 

r~T t 

|A|Unused| Length (Area) 

f _x j. 

| Length (Current extent) 

h 

| Offset of largest free element 

|. 

| Unused/0 

y 



Area 



A structure dope vector for a non- 
dimensioned structure is an ordered list of 
addresses of the elements of which the 
major structure is composed, including the 
elements of minor structures contained 
within the major structure. Minor struc- 
tures do not have separate dope vectors. 
The elements of a minor structure are a 
contiguous subset of the elements of its 
major structure, and can therefore be 
addressed from the major structure's dope 
vector. If an element is an array, the 
address in the structure dope vector is 
replaced by the array dope vector. An 
array of variable-length strings in a 
structure would therefore be addressed as 
follows: 



Figure 37. Format of the Area Variable 

The flag set is: 

A = 1 AREA variable contains free list. 

If a free list exists, the fourth word is 
set to 0. 



Arrays 



Arrays of any data type described in the 
section on scalars are allowed. Arrays are 
stored in row-major order, in increasing 
storage addresses. Except for aligned bit 
strings, the elements of an array which is 
not in a structure are stored contiguously. 

Each array may be described by a dope 
vector holding the dimension information 
declared for the array. The number of 
dimensions of the array is not included in 
its dope vector. The routine which refers 
to the dope vector must know the number of 
dimensions. External procedures know the 
number from a declaration of the parameter, 
and Library routines receive the number as 
an argument. 

Arrays of scalars and fixed-length 
strings are described by a single level of 
dope vector. 

Arrays of variable-length strings have a 
dope vector which points to an array of 
string dope vectors, which in turn give the 
current and maximum lengths of each element 
and point to the actual strings. 



Structures 



Structures require dope vectors whether 
they contain arrays or not. 



The structure dope vector has an entry 
which is an array dope vector 



This array dope vector points to an 
array of string dope vectors 



Each string dope vector then points 
a string 



to 



If a structure has a dimension attri- 
bute, it specifies an array of structures. 
However, the dope vector does not point 
through an array dope vector to an array of 
structure dope vectors. Instead, the 
dimensionality is applied to the elements 
of the structure. 



The Cre a tion of Dope V ectors 



The PL/I ( F) compiler produces dope 
vectors in the following five circumstan- 
ces : 

1. When arguments are passed to a proce- 
dure (whether internal or external) . 

2. When lengths of strings or dimensions 
of arrays are variable, or greater 
than 256 bytes (or 2048 bits) in 
length. 

3. When a variable is DEFINED on another. 

4. When minor structures are passed as 
arguments (a subset of the major 
structure will not suffice in all 
cases) . 

5. When asterisk notation is used, crea- 
tion of separate dope vectors is 
required for projections of arrays. 



mo 



APPENDIX B: IMPLEMENTATION CONVENTIONS AND RESTRICTIONS 



The following implementation conventions 
and restrictions apply to the operating 
system/360 PL/I (F) implementation. 



DISPLAY 



The maximum lengths of character string 
acceptable are 100 characters for the mes- 
sage and 72 characters for the reply. The 
reply string's current length is set egual 
to its maximum length and padded with 
blanks if necessary. 



INPUT/OUTPUT CONVENTIONS AND RESTRICTIONS 



PL/I and Data Sets 



A PL/I program does not nominate data 
sets directly. Instead, under the 
System/36 operating system, it associates 
a file with a job control DD statement that 
identifies a data set. The file is asso- 
ciated with the DD statement by means of: 



PAGESIZE 



The maximum size of a page is 32,767 
lines; the minimum is 1 line. If the page 
size is not specified a value of 60 lines 
is assumed. 



1. The TITLE option : This specifies the 
name (up to eight characters long) of 
the DD statement 



2. The file name : if there is no TITLE 

option, the file name (padded or trun- 
cated to eight characters) is used as 
the ddname. 

Associating the file with the data set 
requires the merging of information des- 
cribing each of them and ensuring that 
there is no conflict of information on any 
particular item. At execution time the 
compiler calls the PL/I library I/O modules 
to handle the source program information. 
The I/O modules generate a skeleton DCB and 
insert in it, first, the file attribute 
from the DECLARE and OPEN statements, and 
then, any default file attributes required. 

The library modules then issue an OPEN 
macro, which fills in the remaining DCB 
fields with information from, first, the DD 
statement for the data set and, then, the 
data set label. Neither the DD statement 
nor the data set label can override infor- 
mation already provided by the source pro- 
gram; the data set label cannot override 
information provided by the DD statement. 

If there are any DCB fields still not 
set, default information is provided by the 
PL/I library OPEN module. 

SYSPRINT is normally used as a STREAM 
OUTPUT PRINT file; it can be used as a 
RECORD file if declared INTERNAL. 



LINESIZE 

The maximum and minimum line size depend 
on the record format. 

r t 1 

| | LINESIZE | 

| Record (• T -| 

I Format j Min. j Max. j 
j. x + ., 

| V |Non-PRINT file: 10| 32,751 | 
| | PRINT file: 9 | | 

| U,F | 1 | 32,759 | 

L X ± J 

If a line size is not specified, the 
default values are: 

PRINT file - 120 characters 

Non-PRINT output file - no default value 

The LINESIZE value determines the 
logical-record length in the data set (i.e. 
the value of LRECL) : 

F- and U- format records: LRECL = LINESIZE 

V- format records: LRECL = LINESIZE + 4 

For PRINT files, an extra byte (for the 
ASA control character) is added to each of 
the above LRECL values. 

If BLKSIZE is specified, its value and 
the LRECL value must be compatible. If 
BLKSIZE is not specified, its value is 
calculated from the LINESIZE value. 
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LINESIZE, SKIP and COLUMN in Non-PRINT 
Files 



Data-Directed Input /Output 



LINESIZE (expression) : Evaluation of the 
expression gives an integer that must be 
within the limits described above. For V 
and U format records, LINESIZE is the 
maximum size of a line. If a variable 
LINESIZE is reguired, the maximum value 
must be specified as the BLKSIZE in the DD 
statement or in the ENVIRONMENT attribute. 
Short lines are padded with blanks for F 
format records only. 



The maximum length of a gualified name, 
including the separating periods, is 255 
characters. 

The semicolon, which is not in the 
48-character set, must always be represent- 
ed in the input stream by the proper 11-8-6 
punch (i.e., the character sequence ,. is 
not recognized as a semicolon) . 



SKIP (expression) : For output files, 
action depends on the record format: 



SKIP Edi t-Directed Input/Output 



F- format On a short line, SKIP fills 
out the remainder of the line with 
blanks. 

V-format SKIP puts out the current line 
as a short record. If the byte count 
of the line is less than 14 (18 with 
control bytes) , the line will be 
blanked up to that size. Successive 
lines will be of the same minimum 
length, padded with blanks. 

U-format SKIP will put out the current 
line as a short record. 



When using the E- format output, 
E(w, d, s) , s must be less than 17 digits. 
When using E(w,, d) , d must be less than 16 
digits. 

If the number of significant digits in 
E-format data is greater than 16, then: 

E-format input: CONVERSION condition 

raised 
E-format output: Data is truncated 



Character Code 



CO LUMN (expression) : For input files, if 
the value of the expression is greater than 
the current record length, a value of 1 is 
assumed. 



Input to the object program is assumed 
to be in EBCDIC mode. 



For both input and output files, if the 
value is less than the current position on 
the line, the file is positioned at COLUMN 
(value) on the next line. 



48-character Set 



For output files, all characters from 
the current position in the line to the 
next position are blanked out. For U- or 
V-format records, if another record is 
required, a short record is put out subject 
to the rules described under the SKIP 
option. 



Block Size and Record Size 



48-character set "reserved" words (e.g., 
GT, LE, CAT, etc.) words must be preceded 
and followed by a blank or a comment. If 
they are not, the interpretation by the 
compiler is undefined and may not, there- 
fore, be what the user intended. 

A record containing part or all of a 
48-character set reserved word must be 3 
characters or mere in length. 



The maximum size of a block or a 
must not exceed 32,7 60 bytes. 



record 



See the section "Structure Mapping" in 
Appendix C for details of data aggregate 
size requirements necessary in calculating 
the record and block size for data sets 
using RECORD I/O facilities. 



The ENVIRONMENT Attribute 



The ENVIRONMENT attribute may contain 
the subfields given below. Only one option 
from each group is permitted. 

General format of the ENVIRONMENT attri- 
bute is: 
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ENVIRONMENT ( [CONSECUTIVE | INDEXED | 

REGIONAL (1) I REGIONAL (2) | REGIONAL (3) ] 
[{V|VS|VBS|F|U> (Blocksize 
[, Records ize ])] [ LEAVE | REWIND] 
[BUFFERS (n)] [COBOL] [CTLASA| CTL3 60] 
[INDEXAREAt(m) ]] [NOWRITE] [GENKEY]) 

Data Set Organization; There are five 
types of data set organization. These are 
detailed below. 

CONSECUTIVE: A data set consisting of 
unkeyed records, which are accessed in a 
physically sequential order. This organi- 
zation is assumed if none is specified. 

INDEXED: A data set which consists of 
keyed records, located by means of several 
levels of index. 

REGIONAL(l) : A data set which consists 
of keyed records, without recorded keys, 
which are located by means of relative 
record positions within the data set. 

REGIONAL(2): A data set which consists 
of keyed records, with recorded keys, which 
are located by means of relative record 
positions, and by a search for a recorded 
key to match the given key. 

REGIONAL (3): Identical to REGI0NAL(2), 
except that positioning is in terms of 
relative tracks. 

Re cord Format: Logical records may be in 
one of three formats: fixed length (format 
F) , variable length (format V) , or unde- 
fined (format U) . Information regarding 
record format may be supplemented by the DD 
statement DCB subparameters, BLKSIZE and 
LRECL. The block size and record size must 
be specified in bytes. 

F (blocksize [ , records ize] ) specifies 
fixed length records with the block 
size as stated. The record size may be 
specified optionally, which indicates 
that records are blocked (i.e., that 
each physical record contains more than 
one logical record) . In this case, the 
block size must be a simple multiple of 
the record size. If the record size is 
not specified, the records will not be 
blocked. Blocked records are not sup- 
ported for UNBUFFERED files. 

V (max-blocksize [ ,max-recordsize] ) 
specifies that records are of varying 
length. A number of complete logical 
records are grouped together to form a 
physical record in such a way that each 
physical record does not exceed the 
maximum block size stated. If the 
maximum record size is specified, no 
logical record may exceed this size. 
Four bytes of control information per 
record, plus four bytes per block, are 



contained in V-format records. These 
items must te considered when speci- 
fying the block size and record size 
subfields. Blocked records are not 
supported for UNBUFFERED files. 

VS (max-blocksize [max-recordsize] ) 
specifies that spanned records are to 
be processed. The maximum block size 
can be exceeded by any logical record, 
in which case the record is segmented 
and written on two or more consecutive 
blocks. One block is written for each 
complete record, or segment, if span- 
ning takes place. 

VBS (max-blocksize[max-recordsize] ) 
specifies that spanned records are to 
be processed. The maximum block size 
can be exceeded by any logical record, 
in which case the record is segmented 
and written on two or more consecutive 
blocks. Each block is written to with- 
in four bytes of the maximum length 
specified. A block can contain up to 
two spanned record segments or any 
number of complete records, or a mix- 
ture of both. 

U ( m ax-blocksize) specifies blocks of 
varying length up to the maximum speci- 
fied. 

Notes : 

1. All record formats permit the use of a 
"printer control character." This 
character appears as the initial char- 
acter of each record (except for V 
format, when it appears after the four 
control bytes). 

2. The specification of a single parame- 
ter (blocksize) in the record format 
in the ENVIRONMENT attribute is taken 
to imply unblocked records. For F- 
and V-format records record size is 
then derived from the block size pa- 
rameter and therefore overrides infor- 
mation supplied on the DD statement. 

Data S et Positioning: The LEAVE and REWIND 
options are used for positioning a 
magnetic-tape volume when a data set is 
closed or when a volume switch is required 
in a multi-volume data set. The REWIND 
option allows the DISP parameter in the 
data set DD statement to control the action 
taken. Figure 37.1 shows the result when 
these options are specified. 

Buffer Allocation: BUFFERS (n) specifies 
the number of buffers to be allocated for 
the data set; this number must not exceed 
255. For BUFFERED files, if the option is 
omitted or the number specified is zero, 
two buffers are automatically allocated 
upon opening the data set- The buffer 
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I— 



Option 



LEAVE 



REWIND 



PASS 



KEEP, 

CATLG, 

UNCATLG 



DELETE 



Both LEAVE and 
REWIND 



Neither LEAVE 
nor REWIND 



Action at Closing of Data Set 



Volume wound on to end of data set 
(If the file is BACKWARDS, the volume 
is rewound to the beginning of the 
data set) 
Channel : busy 



Volume is wound on to end of data set 
(If the file is BACKWARDS, the volume 
is rewound to the beginning of the 
data set) 
Channel : busy 



Action at End of 
Volume 



No repositioning 
Channel: available 



No repositioning 
Channel: available 



Volume is rewound and unloaded 
Channel: available 



Volume is rewound 
Channel: available 



REWIND is ignored 



Volume is repositioned to the beginning of the current data 
set on that volume. (If the file is BACKWARDS, the volume 
is wound to the end of the data set.) 
Channel : busy 

L J. J 

Figure 37.1. Effect of LEAVE and REWIND Options on Repositioning of Magnetic-Tape Volumes 



count may be supplied by a DD statement DCB 
subparameter BUFNO, if not specified in the 
ENVIRONMENT attribute. 

An additional buffer is obtained for 
STREAM output data sets using U- format 
records. 

C OBOL Option: This specifies that files 
with this attribute will contain structures 
mapped according to the COBOL algorithm. 
This type of file may be used only for READ 
INTO, WRITE FROM, and REWRITE FROM state- 
ments. 

COBOL data types and the equivalent PL/I 
data types are shown in Figure 38. 



Files with the COBOL option may 
passed as arguments. 



not be 



READ INTO, WRITE FROM and REWRITE FROM 
statements specifying COBOL files may have 
the EVENT option only if the compiler is 
able to determine that the PL/ I and COBOL 
structure mappings are identical (i.e., all 
elementary items have identical 
boundaries). If they are not identical, or 
if the compiler cannot detect that they are 
identical, then an intermediate variable is 
created to represent the level 1 item 
mapped using the COBOL algorithm. The PL/I 
variable is assigned to this variable 
before the WRITE FROM is executed, or 



assigned from it after the READ INTO is 
executed. Thus the I/O statement contain- 
ing the EVENT is not the one that completes 
the I/O operation; in these cases, the 
EVENT is ignored. 



If an ON condition arises during a READ 
INTO, then 



the INTO variable may not be used in 
the on-unit. 



if the completed INTO variable is 
required, there must be a normal 
return from the on-unit. 



Printer/Punch Contro l Characte r s: Two 

options are available, for RECORD CONSECU- 
TIVE OUTPUT files only: CTLASA and CTL360. 
They have the following meaning :- 



CTLASA - Requires the implementation to 
set the ASA control bit in the DCB 
subparameter DCBRECFM. 



CTL3 60 - Requires the implementation to 
set the machine code control bit in the 
DCB subparameter DCBRECFM. 
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j COBOL data type 
I- 



PL/ 1 data type | 



DISPLAY 



COMPUTATIONAL 
Decimal length (=No. 
of 9s in picture) is 

1 to 4 
5 to 9 



4- 



10 to II 



COMPUTATIONAL-1 



COMPUTATIONAL- 2 



C OMP UTAT I ON AL- 3 



4 



PICTURE with A and/ 
or X picture char- 
racters 

CHARACTER 



No equivalent 
FIXED BINARY 

(integers only) 
No equivalent 



FLOAT (n) BINARY 
(for n < 21) 

FLOAT (n) DECIMAL 
(for n < 6) 



4- 



FLOAT (n) BINARY 
(for n > 21) 

FLOAT (n) DECIMAL 
(for n > 6) 



FIXED DECIMAL 
(precision and 
scale as in COBOL 
picture) 



Figure 3 8 



Equivalence of COBOL and PL/I 
Data 



These options are used in order that 
spacing, skipping, etc. , may be achieved in 
RECORD I/O files. It is the user's 
responsibility to ensure that the first 
byte of each record contains a valid ASA or 
machine code control character. These 
options will be ignored for STREAM files. 



Perfo rmance wit h DIRECT INDEXED (Input o r 

Update ) F iles; Performance is improved if 

INDEXED DIRECT files (which use BISAM) are 
specified with the INDEXAREA and NOWRITE 
options. 



INDEXAREA Urn)]. 



Used with INDEXED DIRECT 

for INPUT or UPDATE (and 

This option caus- 



files opened 

ignored by other files) . 

es the highest level of index to be loaded 

into main storage. The permitted formats 

are: 

INDEXAREA (m) : the parameter m is a decimal 
constant < 32767. If the index size < 
m, the index is loaded into main stor- 
age; if the index size > m, the index 
is not loaded. This enables the pro- 
grammer to place a limit on the amount 
of core he is prepared to allocate for 
an index area. If m > 32767, the 
parameter is ignored and the index 
(whatever its size) is loaded into main 
storage. 



INDEXAREA: if no parameter is specified the 
index (whatever its size) is loaded 
into main storage. 

NOWRIT E . Used for INDEXED DIRECT files 
opened for UPDATE (and ignored by other 
files) . This option indicates to data 
management that there are no records to 
be added to the file and therefore the 
write-add facility is not required. If 
an attempt is made to execute a WRITE 
statement on a file with this option, a 
diagnostic message will be printed and 
the ERROR condition raised. 



GENKEY Option 



The GENKEY option applies only to 
INDEXED data sets. It enables the program- 
mer to classify keys used in the data set 
into generic classes and to use a SEQUEN- 
TIAL KEYED INPUT Or SEQUENTIAL KEYED UPDATE 
file to access and read records according 
to the classification of their keys. 

A generic key is a character string that 
identifies a class of keys. All keys which 
begin with such a string are members of 
that class of keys. For example, the 
recorded keys 'ABCD', 'ABCE', and 'ABDF' 
are all members of the classes identified 
by the generic keys 'A' and 'AB'. The 
first two keys are also members of the 
class 'ABC', and the three keys can be 
considered as unique members of the classes 
'ABCD', ABCE', 'ABDF', respectively. 

The GENKEY option allows the programmer 
to start sequential reading or updating of 
an INDEXED data set from the first non- 
dummy record that has a key in a particular 
class. The class is identified by the 
inclusion of its generic key in the KEY 
option of a READ statement. Subsequent 
records can be read by READ statements 
without the KEY option, or they can be 
updated by REWRITE statements. It is the 
responsibility of the programmer to check 
that the last record in a generic class has 
been processed, as no indication is given 
when it is reached. 

In the following example, a key length 
of more than three bytes is assumed: 

DCL IND FILE RECORD SEQUENTIAL 
UPDATE KEYED 
ENV( INDEXED GENKEY); 



READ FILE (IND) INTO ( INFIELD) 
KEY ( • ABC * ) ; 
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NEXT: READ FILE(IND) INTO(INFIELD) ; 



GO TO NEXT; 



Note: The EVENT option should not be used 
on a WRITE statement if V or U format 
records are being added to a REGIONAL (3) 
data set which is being accessed in a 
direct update mode. 



In the above example, the first READ 
statement causes the first non-dummy record 
in the data set whose key begins with 'ABC* 
to be read into INFIELD. Each time that 
the second READ statement is executed, the 
next non-dummy record will be retrieved. 



If the data set contains no non-dummy 
records with keys of the specified generic 
class, the KEY condition is raised, and, on 
return from the on-unit, the next READ 
statement will read the first record in the 
data set. However, if the data set con- 
tains only dummy records, the ENDFILE con- 
dition is raised. 



WAIT Statement 



If the user wishes to specify more than 
one event name in a WAIT statement, the 
multiple-wait option must have been speci- 
fied at SYSGEN time. 

If a WAIT statement is executed and the 
events required to satisfy the WAIT contain 
a mixture of I/O and non-1/0 events all 
non-I/O events will be set complete before 
any of the I/O events. 



Note how the use of the GENKEY option 
affects execution of a READ statement that 
supplies a source key sho rter than the key 
length specified in the KEYLEN subparameter 
of the DD statement which defines the data 
set. If the GENKEY option is used, it 
causes the source key to be interpreted as 
a generic key, and the record to be read is 
the first non-dummy record in the data set 
whose key begins with this source key. If 
the GENKEY option is not used, a short 
source key is padded on the right with 
blanks to form a source key of the speci- 
fied key length, and the record to be read 
is the record which has this padded key, if 
such a record exists. 

The use of the GENKEY option does not 
affect the result of supplying a source key 
whose length is greater than or equal to 
the specified key length. The source key, 
truncated on the right if necessary, iden- 
tifies a specific record whose key can be 
considered the only member of its generic 
class. 



TITLE Option 



If the TITLE option specified exceeds 
eight characters, then the first eight are 
used. 



BASED Variables 



The implementation of offsets and poin- 
ters does not support bit addressing. This 
restriction has no practical effect on 
ALIGNED bit strings. With UNALIGNED bit 
strings belonging to arrays or structures, 
however, only offsets or pointers to major 
structures or minor structures with byte 
(or higher) alignment should be used. 
Other restrictions on the use of based 
variables are given in Appendix H. 



Ini tializing LABEL Variables in Structures 
with the LIKE Attribute 



EVENT Option 



The EVENT option is implemented for 
RECORD input/output statements used as fol- 
lows : 

A ccess File Organization 

SEQUENTIAL CONSECUTIVE UNBUFFERED 
REGIONAL UNBUFFERED 

DIRECT CONSECUTIVE INDEXED 
or REGIONAL 



Initialization of LABEL variables in 
these structures requires careful handling 
particularly as the implementation does not 
provide the result specified by the lan- 
guage. A structure A is declared, using 
the LIKE attribute, to be identical to a 
structure B. Structure B contains a LABEL 
variable that is initialized, using the 
INITIAL attribute, to the value of a LABEL 
constant. The initial value of the corres- 
ponding LABEL variable in A is the initial 
value of the LABEL constant known in the 
block containing the declaration of B, not 
A. 
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For example: 



Compile- Time Procedures 



DCL 1 B r 

2 L LABEL INITIAL (Ll) ; 



LI: 



/*B.L = Ll*/ 



BEGIN; 

DCL A LIKE B; 



Ll: 



END; 



/*A.L IS GIVEN THE VALUE OF 
Ll IN STRUCTURE B*/ 



There may be no more than 2 54 compile- 
time procedures per compilation. Further, 
each procedure is limited to a maximum of 
15 parameters. 



Co m pile-Time DECLARE 



No more than three levels of factoring 
are permitted in a compile- time DECLARE 
statement. 



COMP ILE-TIME PROCESSING CONVENTIONS AND 
RESTRICTIONS 



The MACRO Option 



The MACRO option should be included 
among the complete set of options for the 
compiler invocation if the program contains 
compile-time statements. 



Precision 



The precision, N f for a compile-time 
variable declared FIXED is 5. 



Combined Level of Nesting and Depth of 
Replacement 



At any point in the 
level of nesting and 
is restricted to 50 le 
not all nested or repl 
the same amount of spa 
with a greater a 
replacement depth than 
replacement is self- 
level requires some cl 
ing level is required 



program the combined 
depth of replacement 
vels. However, since 
acement items require 
ce, a program may run 
ctual nesting or 
50 levels. Depth of 
defining, but nesting 
arification. A nest- 
for: 



each pair of parentheses, either expli- 
cit or implied by hierarchy of opera- 
tion 



INCLUDE Conventions 



Included text must be a member of a 
partitioned data set. If only a single 
identifier is specified, i.e.,, of either of 
the following forms 

(identifier) 
identifier, 

then it is assumed to be the name of a 
member of the data set with the ddname 
SYSLIB. If identifier! (identif ier 2 ) is 
written then identif ierj. is the ddname and 
identifier a is the member name. DD cards 
must be provided for those data sets used. 
Records in these data sets must have a 
fixed length of not more than 100 charac- 
ters. The maximum blocking factor is 5. 
The source margin and character set options 
on the EXEC control card also apply to 
included text. 



each IF, DO, or PROCEDURE statement 

each member of a parenthesized list, 
such as factor lists in DECLARE state- 
ments or argument lists of procedures. 



Limitat i ons on Size of Compile-Time 
Processor Input 



The user's program is maintained inter- 
nally as blocks of text. Blocksize is 
assigned at the start of processing and is 
a function of machine size as specified by 
the SIZE option on the EXEC card. The 
total size of internal text is restricted 
to 90 times the size of a text block. The 
minimum system configuration results in a 
blocksize of IK, so a total of 90K is 
allowed for internal text. This minimum 
figure is roughly equivalent to 10 00 source 
input statements. 
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Limitations on Number of Compile-Time 
Variables 



The maximum number of compile-time vari- 
ables which can be used in a program 
depends on the total size of the diction- 
ary, which is restricted to 65,000 bytes. 
Assuming an average dictionary entry size 
of 2 8 bytes, this restricts the processor 
to approximately 2,300 items. An entry is 
made in the dictionary for each macro 
variable, macro procedure name, INCLUDE 
identifier, macro label, and unique 
compile-time constant. In addition, two 
dictionary entries are created for each 
iterative DO, one for each THEN or ELSE 
clause, and one for each compile-time pro- 
cedure. Error message references are also 
entered into the dictionary. The diction- 
ary is cleared at the end of compile-time 
processing; it is therefore unnecessary to 
keep the above considerations in mind if 
estimating available dictionary space dur- 
ing actual program compilation. 



Output Line Numbering 



Where constants or comments span more 
than one line, the output line numbering 
refers to the first input line number of 
the string or comment. 



character string; the maximum length is 
100, and the current length is set equal to 
the parameter length at object time. The 
parameter can also be a fixed- length char- 
acter string. 



Number of Variables 



The maximum number of variables in the 
source program depends on the total size of 
the dictionary, which (for NOEXTDIC) is 
restricted to approximately 6 5,000 bytes. 
This is equivalent to a restriction of 
roughly 1,200 variables for a scientific 
user and to 1,000 for a commercial user. 
In computing these figures a reasonable 
allowance has been made for constants, 
statement labels, and other items which may 
require dictionary entries. 

If the EXTDIC option is specified, the 
maximum size of the dictionary is approxi- 
mately 1.5 times 65,000 bytes for a block 
size of IK, and approximately 3.5 times 
65,000 bytes for other block sizes. 

The figures for variables are necessari- 
ly approximate, since the size of a dic- 
tionary entry varies with the type of 
variable, length of identifier, whether it 
is a structure element, and so on. 



OTHER COMPILER CONVENTIONS AND RESTRICTIONS 



OPTIONS Attribute 



The list in the OPTIONS attribute may 
include the options MAIN, TASK and REEN- 
TRANT. The MAIN option should be used for 
the external procedure which is required to 
be given initial control at object time. 
The REENTRANT option must be specified if 
the object program generated by the compil- 
er is to be reenterable. 

The TASK option must be used if the 
procedure is to be invoked for tasking or 
to be invoked with other procedures with 
the TASK option. 



Parameter to the MAIN Procedure 



Number of Executable Statements 



The total size of the internal text, at 
any point in the compilation, is restricted 
to 90 times the size of a text block. The 
size of a text block is itself dependent on 
the amount of core storage available to the 
compiler, as specified by the SIZE option 
The minimum block size is 1,024 bytes (IK), 
giving a maximum size for the internal text 
of 92,260 (90K). This is equivalent to 
roughly 28 executable statements. 

The maximum block size is 16,384 bytes, 
giving a maximum of 1,474,5 60 bytes for the 
size of internal text. This is equivalent 
to roughly 14,000 executable statements. 

The figures given for numbers of state- 
ments are necessarily approximate, since 
the number of bytes per statement will vary 
between different types of source programs. 



A single parameter may be passed by the 
EXEC statement for the execution job step 
to the MAIN procedure. If this facility is 
used, the first parameter to the MAIN 
procedure should be declared as a VARYING 



Size of an Individual Statement 



All statements, other than a DECLARE 
statement, are limited to 3,500 source 
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characters, i.e., equivalent to 50 cards. 
The 'content* of any statement, other than 
a DECLARE statement, is limited by the size 
of a text block; this varies, as described 
in the preceding paragraphs, with the stor- 
age available, but will not be less than 
1,02 4 bytes. 



The GENERIC Attribute 



There is a limitation on the number of 
family members and arguments which may be 
associated with a GENERIC entry name. The 
value given by evaluating the following 
formula must not exceed 700: 



The content of a statement can be calcu- 
lated by ignoring nonsignificant blanks and 
comments, expanding iteration factors in 
string constants and pictures, and then 
adding one byte for each occurrence of an 
identifier, and three bytes for each occur- 
rence of a constant. To this, for binary 
constants add the iterations of any CHARAC- 
TER or BIT strings (note that at this point 
BIT strings are treated as characters, not 
bits) , since the (F) compiler expands the 
strings as if the programmer had written 
them in full, and two decimal digits for 
decimal constants. At most, these restric- 
tions will limit a statement to six cards, 
but the limit will normally be between 20 
and 30 cards, even for a text block of 
1,024 bytes. 



These restrictions also apply to a 
DECLARE statement for the text between any 
two commas which are not contained within 
parentheses. 



3n + 8Y)a. + 8MAX (a^. , a a , • . . , a n ) + 3d 

1 x 

where n = the number of family members 

a. = the number of arguments relating 

to the ith family member 
d = the greatest function nesting 
depth at which an invocation of 
the GENERIC entry name appears 



Num ber of Blocks in a Compilation 



The number of PROCEDURE, BEGIN, and 
iterative DO groups, plus the number of ON 
statements, must not exceed 255. 



Level Numbers 



Factoring of Attributes 



The maximum declared level number per- 
mitted in a structure is 255. The maximum 
true level number permitted in a structure 
is 63. 



The number of left parentheses used for 
factoring attributes in DECLARE statements 
is limited to 73 in a compilation. 



Number of Parameters 



Limitations on Nesting 



The maximum rumber of parameters permit- 
ted at any entry point is 64. 



There must not be more than 50 levels of 
nesting at any point in the compilation. 
The degree of nesting at any point is the 
number of PROCEDURE, BEGIN, or DO state- 
ments without a corresponding END state- 
ment, plus the number of currently active 
IF compound statements, plus the number of 
currently unmatched left parentheses, plus 
the number of dimensions in each active 
array expression, plus the maximum number 
of dimensions in each active structure 
expression. 

The number of nested iteration factors 
in a format list must not exceed 20. The 
maximum nesting of ENTRY attributes within 
an ENTRY or GENERIC attribute is 3. 



Number of Dimensions 



The maximum number of dimensions permit- 
ted, including dimensions inherited from 
containing structures, is 32. 



Arr ay B ounds 



Arrays are limited, for each dimension, 
to a lower bound of -32,768 and to an upper 
bound of 3 2,767. 
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Data-Directed List 



Floating-Point Constants and E Format Items 



The maximum number of elements permitted 
in a list for data-directed input is 320. 
Each base element of a structure counts as 
a separate list element. 



The exponents of floating-point numbers 
are restricted to a maximum of 2 digits for 
decimal or 3 digits for binary. 



Structure and Array Expressions 



The level of nesting in structure and 
array expressions is limited by the follow- 
ing rule: 

For each level of nesting of structure or 
array expressions, add 2 for the maximum 
number of dimensions in the structure or 
array, add 2 for the maximum level in a 
structure expression, add 3 for each sub- 
script or argument list in the expression 
or assignment, and finally, add 15. 



The total for 
exceed 900. 



the whole nest should not 



Const ants Returned by Procedures 



If a procedure has more than one entry 
point, and each entry point returns a 
value, code is generated to convert each 
value returned to each of the data types 
for the entry points. If any of these 
values is a constant, it is possible that 
this constant cannot be converted to all 
the data types specified. A severe error 
message will be put out, and execution will 
be unsuccessful. 



This situation can be avoided by assign- 
ing the constant to a variable of the same 
data type, and then returning this varia- 
ble. For example: 



Constants 



The precision or length of constants may 
not be greater than the precision or length 
of the corresponding type of variable. 



DCL A ENTRY RETURNS (CHAR (8) ) , 

B ENTRY RETURNS ( FIXED DECIMAL ( 15) ) , 
C ENTRY RETURNS (BIT ( 64) ) , 
ATEMP CHAR (8) ; 



Sterling Constants 



The maximum number of digits allowed in 
the oounds field of a sterling constant is 
13. 



ENTRY CHAR (8) 

ATEMP = 'A08* 

RETURN (ATEMP) 

ENTRY FIXED DECIMAL (15) ; 

RETURN (10 8) ; 

ENTRY BIT (64) ; 

RETURN ( ' 10101' B) ; 



The number of digits following the deci- 
mal point in the pence field must not 
exceed 13 minus the number of digits in the 
pounds field. 



The use of ATEMP avoids the interrupt 
caused by the CHARACTERS FIXED DECIMAL and 
the CHARACTER- >BIT conversions. However, 
execution may still be unsuccessful, and a 
warning message is put out to remind the 
user. 



String Constants 



The number of characters in a string 
constant, after expansion of iteration fac- 
tors, may not exceed the size of a diction- 
ary block minus 14. The size of a diction- 
ary block will vary with the storage avai- 
lable to the compiler in the same way as 
does text block size, but will not be less 
than 1,024 bytes. 



Compiler-Generated Names 



The number of narres generated by the 
compiler must not exceed 11,26 4 in a compi- 
lation. One name is generated for each 
PROCEDURE, BEGIN, or ON block, for each 
variable declared as CONTROLLED INTERNAL, 
and for each INTERNAL file. 
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Temporary Results in Expression Evaluation String Lengths 



The maximum number of temporary results 
which may exist during the evaluation of an 
expression or during an assignment state- 
ment is 2 00. 



The length, in characters or bits, of a 
string variable or intermediate string 
result is limited to 32,767. 



An estimate of the number of temporary 
results which may exist during the evalua- 
tion of an expression can be obtained from 
the following: 



String Lengths in Intermediate Result 
Fields 



At each level of parenthesis, count one for 
each operator which is forced to be evalu- 
ated before an inner level of parentheses. 
For each such operator, count one for each 
operand which requires conversion before 
use, count one for each nested function, 
count one for each subscripted variable 
used as a target in an assignment state- 
ment, and finally, count one for each 
pseudo-variable and each argument of a 
pseud o- variable. 



Multiple Assignments and Pseudo-Variables 



Multiple assignments are limited by the 
following rule: 

Count 11 for each target of a multiple 
assignment, add 3 for each pseudo- 
variable, and then add 11 for each 
argument of a pseudo-variable. The 
total must not exceed 4,08 5. 



Function Values 



The maximum number of different 
types or precisions returned by 
function may not exceed 25 6. 



Qualified Names 



data 
one 



When non-ad -ustable VARYING strings, or 
functions which return non-adjustable VARY- 
ING strings, are used in an expression, the 
lengths of the intermediate result fields 
are calculated from the maximum lengths of 
the operands. If these lengths are at or 
near the maximum permitted by the implemen- 
tation (32767 bytes or bits), the length of 
the intermediate fields may be greater than 
the implementation maximum; if so, they 
will be truncated on the left; This situa- 
tion can occur with concatenation, the 
UNSPEC function with a character- string 
argument, the REPEAT function, and the 
STRING function. 

The use of adjustable VARYING strings 
can create a similar problem. When an 
operand of the concatenate operator or the 
argument of the UNSPEC function is an 
adjustable VARYING string, the length of 
the intermediate result field is not test- 
ed, and execution will fail. This situa- 
tion can also occur with SUBSTR if the 
third argument is not a constant, because 
in this case the result is an adjustable 
VARYING string. 

Similarly, when a VARYING string is 
passed as an argument to a fixed- length 
string parameter, the length of the tempor- 
ary argument created is the maximum length. 
If the user wishes to pass the current 
length of the VARYING string (in, for 
example, Y=X(A))., a possible method is: 

DCL ATEMP CHAR(*) CTL; 

ALLOCATE ATEMP CHAR (LENGTH (A) ) ; 
ATEMP=A ; 
Y=X (ATEMP) ; 
FREE ATEMP; 



The number of characters in a qualified 
name, which is to be used either for 
data-directed input/output or in CHECK 
lists, must not exceed 2 56. 

Note that if the DATA option without a 
list is used for data-directed input, this 
will include all structure elements in the 
compilation. 



AREA Sizes 



The size of an area is limited to 32767 
bytes. In this implementation, the AREA 
size is provided by the value associated 
with the AREA attribute or by the default 
value of 1000 bytes. 
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LABEL Attribute 



Fl o ating-Point Magnitude 



The number of statement- label constants 
specified by the LABEL attribute is limited 
to 125 in any particular label list. 



The magnitude of a normalized floating- 
point variable or intermediate result must 
lie in the range from 2.4 x 10 - " 78 to 7.2 x 
10 75 . 



POSITION 



Built-in Functions 



The maximum value of the integer con- 
stant in the POSITION attribute is 32,767. 



PICTURE 



The maximum length of a PICTURE describ- 
ing a numeric field, after expansion of 
iteration factors, is 255. 



PICTURE describ- 

fter expansion of 

size of a dic- 

The size of a 

with the storage 
in the same way 
, but will not be 
76 8 bytes if the 



The maximum length of a 
ing a character string, a 
iteration factors, is the 
tionary block, less 14. 
dictionary block will vary 
available to the compiler 
as does text block size 
less than 1,024 bytes (or 
EXTDIC option is in use) . 



SETS List 



The total of twice the number of iden- 
tifiers in a SETS list, plus the number of 
parameter numbers in a SETS list, must not 
exceed 255. 



The default value for the second 
argument of the FIXED built-in function is 
15 for binary data, and 5 for decimal data. 

The default value for the second argu- 
ment of the FLOAT built-in function is 21 
for binary data, and 6 for decimal data. 

The length of the bit string which is 
the value ret irned by the UNSPEC function 
is defined by the type of the argument. 



Argument Type 

FIXED BINARY (p,q) 
FIXED DECIMAL (p,q) 
FLOAT BINARY (p) 

FLOAT DECIMAL (p) 

CHARACTER (n) 
BIT (n) 

POINTER 

OFFSET 

AREA 



Length of Bit String 



32 




8* FLOOR 


((p+2)/2) 


32 if p 


< 21 


64 if p 


> 22 


32 if p 


< 6 


64 if p 


> 7 


8*n 




n 




32 




32 




(Number 


of bytes 



allocated + 16) *l 



The length of the string returned by the 
ONSOURCE and DATAFIELD built-in functions 
is subject to an implementation maximum of 
255 characters. 



MAX* MIN, MOD Built-in Functions 



Scale Factor 



The scale factor of a variable, or of an 
intermediate result of type FIXED, must be 
in the range -128 and +127. 



Precision 



The maximum precision of a variable or 
of an intermediate result is: 

5 3 for FLOAT BINARY 

16 for FLOAT DECIMAL 

31 for FIXED BINARY 

15 for FIXED DECIMAL 



When the arguments to these functions 
have different attributes, all the argu- 
ments are converted, before the function is 
invoked, to the highest characteristics. 
Contrary to the language specification, 
both the precision and the scale factor of 
an argument will be adjusted. If all the 
arguments are FIXED, application of tne 
highest-characteristics rule may, in con- 
junction with the maximum precision defined 
by the implementation, cause truncation and 
hence an inaccurate result. For example: 

DCL X FIXED DECIMAL (12,1), 

Y FIXED DECIMAL (12,9); 

Z = MOD (X,Y) ; 
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Here Z (whatever its attributes) will be 
wrong. X and Y are stored in a temporary 
field which would have, according to the 
precisions of the operands, a precision 
larger than the implementation permits. 
Therefore the implementation-defined maxi- 
mum is applied, resulting in a precision of 
(15,9). Y can be stored satisfactorily 
inside such a field but X is truncated, 
with the loss of its five high-order 
digits. 



Length of Identifiers 



The following types of identifiers 
should contain not more than seven charac- 
ters: 

All EXTERNAL data identifiers 
EXTERNAL PROCEDURE and ENTRY labels 
EXTERNAL Files 
CONDITION identifiers 

If this restriction is exceeded, the 
first four characters are concatenated with 
the last three to form an abridged iden- 
tifier. 



MOD Built-in Function 



When the MOD function is used with FIXED 
arguments of different scale factors, the 
results may be truncated. If SIZE is 
enabled, an error message will be printed; 
if SIZE is disabled, no error message will 
be printed and the result is undefined. 



C OMPLETION Built-in Function and 
Pseudo- variable 



The COMPLETION built-in function and 
pseudo-variable were previously defined in 
PL/I with the name EVENT. The (F) compiler 
implements the COMPLETION built-in function 
and pseudo-variable whether the keyword 
used is COMPLETION or EVENT. 



STRING Built-in Function 

The argument may be a scalar, array, or 
structure variable that consists of one of 
the following: 

1. Bit strings 

2. Character strings 

3. Decimal numeric pictures 

4. A mixture of (2) and (3) 

It may not be an expression. 

The argument can be ALIGNED or UNAL- 
IGNED; if it is ALIGNED, padding is not 
included in the result. 

The concatenated string in the result 
has a maximum length of 3276 7 bytes. 



In addition, such identifiers must not 
start with the letters IHE, lest they 
conflict with the names of Library modules. 



Subscr ipted Identifiers 



For subscripted identifiers, the maximum 
number of characters in the subscript is 
limited to 225 characters. This figure 
includes the first left parenthesis, the 
commas, and the final right parenthesis; it 
excludes redundant characters such as 
blanks and plus signs. 



CHECK Lists 



The maximum number of entries in a CHECK 
condition, whether in a prefix list or in 
an ON statement, is 510. 

The maximum number of data items being 
checked at any point in the compilation 
varies between 207B-2n and 3968-2n, where n 
is the number of currently checked items 
which have the attribute EXTERNAL. 

If a structure or part of a structure is 
in a CHECK condition, the number of items 
in this restriction must include all ele- 
ments of the structure. 



OBJECT-TIME CONVENTIONS AND RESTRICTIONS 



Data-Directed Input 



When the CHECK condition is enabled for 
data-directed input, assignment of each 
element of an array will cause the whole 
array to be written out. 
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Ed it- Directed Output 



ON-Units and Entry Parameter Procedures 



E- and F-format items are rounded, not 
truncated. 



CHECK Condition 



There is an implementation limit to the 
number of ON-units and/or entry parameter 
procedures which can be active at any time. 
An entry parameter procedure is one that 
passes an entry name as parameter to a 
procedure it calls. The total permissible 
number of these ON-units and/or entry pa- 
rameter procedures is 127. 



If an identifier which is read in by a 
GET DATA statement is included in a CHECK 
list any where in the program , then the 
CHECK condition is raised, and will be 
treated as enabled unless the block con- 
taining the GET DATA statement has an 
explicit NOCHECK prefix. If the CHECK 
condition is raised, SYSTEM action will be 
taken unless the GET DATA statement lies 
within the dynamic scope of an ONCHECK 
statement for the identifier in question. 



If a READ statement with the EVENT 
option has a KEYTO or an INTO variable for 
which the CHECK condition is enabled, the 
value of the variable will be printed 
immediately after the READ statement, not 
after the WAIT statement. Consequently the 
printed values of the variable will be the 
old, not the new values. 



Exponentiation 



The expression X**(-N) for N>0 is evalu- 
ated by taking the reciprocal of X**N. 
This may cause the OVERFLOW condition to 
occur as the intermediate result is comput- 
ed, which corresponds to UNDERFLOW in the 
original expression. 



Collating Sequence 



In the execution of PL/I 
parisons of character data 
collating sequence resulti 
resentations of character 
System/360 storage, in e 
coded decimal interchange 
The BCD and EBCDIC punched 
graphics for the PL/I 60-c 
tabled in collating sequenc 
ure 4 of this publication. 



programs, corn- 
will observe the 
ng from the rep- 
s in bytes of 
xtended binary 
code (EBCDIC) . 
card codes and 
haracter set are 
e order in Fig- 



CONVERSION ON-Condition 



If a return from an ON- unit for CONVER- 
SION is made, then, unless it was entered 
on account of a SIGNAL statement, the data 
conversion will be reattempted. This 
implies the use of corrective measures on 
the field in error using either the 
ONSOURCE or the ONCHAR pseudo-variables . 
If corrective action is not taken in the 
ON-unit, and normal return is attempted, a 
message will be printed and the ERROR 
condition will be raised. 

If the ONSOURCE or ONCHAR pseudo- 
variable is used outside an ON-unit, or in 
an ON-unit other than either a CONVERSION 
ON-unit or an ERROR or FINISH ON-unit 
entered because of system action for 
CONVERSION, then a message is printed and 
the ERROR condition is raised. 

If the ONSOURCE built-in function is 
used out of context, a null string is 
returned. If the ONCHAR function is used 
out of context, a blank is returned. 



ENTRY Names as Arguments and ON Statements 
in Recursive contexts 



In the first version of the (F) compil- 
er, ENTRY parameters were invoked with the 
environment existing at the time of invoca- 
tion. In subsequent versions, they will be 
invoked with the environment existing at 
the time when the ENTRY name was passed as 
an argument. 



Exampl e ; 



PI 



P4: 



PROC RECURSIVE; 
B = 1; 

CALL P4(P3) ; 
RETURN ; 

ENTRY (PP) ; 
B = 2; 
CALL PP; 
P3: PROC; 

PUT DATA (B) ; 

END; 
END; 
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Note : For the first version, the above 
procedure gave B = 2;,, for subsequent 
versions it gives B = 1; . 

In the first version of the (F) compil- 
er, ON-units in recursive contexts were 
entered with the environment existing when 
the condition occurred. In subsequent ver- 
sions, the ON-unit will be entered with the 
environment which was in existence when the 
ON statement was executed. 



Example ; 



Note 



: PROCEDURE RECURSIVE; 

DECLARE I STATIC INITIAL (0), 

M AUTOMATIC; 
1=1+1; 
M = I; 
IF I = 1 THEN DO; 

ON OVERFLOW PUT DATA (M) ; 

END; 
IF I = 3 THEN SIGNAL OVERFLOW; 

ELSE CALL P; 
END; 

In the first version, the procedure 
gave M = 3 ; subsequent versions give 

M = 1. 



These modifications of semantics can 
affect only those programs which contain 
both recursive procedures and either entry 
parameters or ON statements. 



1. On the LOCATE statement the KEYFROM 
key is checked for sequence; the KEY 
condition is raised if a sequence 
error is found. 



2. Processing continues until the next 
operation on the file. 



3. 



At the next operation on the file, the 
embedded key in the buffer is checked 
against the KEYFROM string that was 
given in the LOCATE statement. If 
they differ, then: 



Explicit CLOSE: 
raised 



the KEY condition is 



Implicit close: the KEYFROM string 
replaces the embedded key in the 
buffer, an error message is writ- 
ten on the console, and the file 
is closed. 



4. On normal return from the ON unit, 
control passes to the next statement 
The current statement is not executed. 



Concatenated Data Sets 



Record Alignment 



Concatenation of data sets with "unlike 
attributes" (device type, record format, 
etc.) is not supported at object time. 



LOCATE MODE 



ON Conditions 



UNDEFINEDFILE condition for implicit 
OPEN is raised in the normal way. 

TRANSMIT condition is raised when it is 
detected, which may be some statements 
later. ONKEY does not necessarily give the 
key of the record that caused an I/O 
transmission error. 

RECORD condition is raised in the usual 
way for LOCATE. It cannot occur for READ 
SET or REWRITE without the FROM option. 

KEY condition is raised in the usual way 
except for a LOCATE statement on an INDEXED 
file with RKP*0. If this happens then the 
sequence of operations is: 



The user must pay attent 
alignment within the buffer 
locate mode I/O. The first 
the first record in a block 
aligned in a buffer on a doubl 
ry (see Figure 39); the next 1 
begins at the next availabl 
buffer. The user must ensu 
alignment of this byte match 
ment requirements of the ba 
with which the record is to b 



ion to record 
when using 
data byte of 
is generally 
eword bounda- 
ogical record 
e byte in the 
re that the 
es the align- 
sed variable 
e associated. 



Most of the alignment problems described 
here occur in ALIGNED based or non-based 
variables. If these variables were UNAL- 
IGNED, the preservation of the record 
alignment in the buffer would be considera- 
bly easier. 

If a VB format record is to be con- 
structed with logical records defined by 
the structure: 

DCL 1 S, 

2 A CHAR(l), 

2 B FIXED BINARY; 

this structure is mapped as in Figure 39. 
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f M B 1 

L J J J. L i J J __J 



W = Word boundary 

Figure 39. Format of Structure S 

If the block was created using a 
sequence of WRITE FROM(S) statements, the 
format of the block would be as in Figure 
4 , and it can be seen that the alignment 
in the buffer differs from the alignment of 
S. 

There is no problem if the file is then 
read using move mode READ statements, e.g., 
READ INTO(S), because information is moved 
from the buffer to correctly aligned stor- 
age. 

If, however, a structure is defined as: 

1 SBASED BASED (P) LIKE S; 

and READ SET(P) statements are used, then, 
reference to SBASED. B would, for the first 
record in the block, be to data aligned at 
a doubleword plus one byte, and would 
probably result in a specification inter- 
rupt. 

The same problem would have arisen had 
the file originally been created by using 
the statement: 

LOCATE SBASED SET(P) ; 

Again, for the first record in the 
block, P would be set to address a double- 
word and references to SBASED. B would be 
invalid. 



In both cases the problem is avoided if 
the structure is padded in such a way that 
B is always correctly aligned: 

1 S, 

2 PAD CHAR (3) , 

2 A CHAR(l), 

2 B FIXED BINARY; 

The block format would now be as in Figure 
41; B is always on a word boundary. Pad- 
ding may be required at the beginning and 
end of a structure to preserve alignment. 



The alignment of diff 
record within a buffer is s 
42. For all organizations 
except blocked records i 
with RKP=0, the first data 
is always on a doublewor 
position of any successive 
buffer depends on the recor 



erent types of 
hown in Figure 
and record types 
n INDEXED files 
byte in a block 
d boundary. The 
records in the 
d format. 



For unblocked INDEXED, the LOCATE state- 
ment will use a hidden buffer if the data 
set key length is not a multiple of 8. The 
pointer variable will point at this hidden 
buffer. 

A special problem arises when using 
locate mode in conjunction with based vari- 
able containing adjustable extents, i.e., 
containing a REFER attribute. Consider the 
based structure: 

1 S BASED (P) , 
2 N, 
2 C CHAR (L REFER (N)); 

If it is desired to create blocked V- format 
records of this type, using locate mode, 
then this record alignment must be such 
that N is word aligned. If L is not a 
multiple of 4 then, if the alignment of the 
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BL = Block length 
RL = Record length 



D = Doubleword boundary 
W = Word boundary 



Figure 40. Block Created from Structure S 
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BL = Block length 
RL = Record length 



D = Doubleword boundary 
W = Word boundary 



Figure 41. Block Created by Structure S with Correct Alignment 
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current record is correct, that of the 
following record will be wrong.. Correct 
alignment can be obtained by the following 
sequence: 

LENGTH = L; 

/* SAVE DESIRED LENGTH L */ 
L = 4* CEIL(L/4) ; 



/* ROUND UP TO MULTIPLE OF 4 */ 
LOCATE S FILE (F) ; 
N = LENGTH; 

/* SET REFER VARIABLE */ 



This technique can be adapted to other uses 
of the REFER attribute. 



Doubleword 
boundary 



CONSECUTIVE 
F 

V or VS 



FB 



VB or VBS 



INDEXED 
F 

FB 



REGIONAL 
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data 
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L = block length 
1 = record length 
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•Figure 42. Alignment of Data in a Buffer in Locate Mode I/O, for 
Different Formats and File Organizations 
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APPENDIX C: OBJECT PROGRAM ORGANIZATION AND CONVENTIONS 



INTRODUCTION 



RUN-TIME STACK 



The main features of PL/I which affect 
object code organization are, briefly, as 
follows: 

1. The block structure, rules of scope, 
and storage class 

2. Interruption activity 

3. Asynchronous facilities 

4 . Data types and extents 

The term 'block* is used to mean either 
a PROCEDURE or a BEGIN- END group which 
contains declarations of AUTOMATIC varia- 
bles. Because such storage is dynamic, it 
is allocated only when the block is 
entered. It is stressed that the code for 
a block is present at all times and as that 
code is read-only, one copy only is neces- 
sary, even if the procedure is recursive. 
Therefore, when a block is activated, stor- 
age is allocated. 



At any one time during the execution of 
a PL/I program, control resides in one 
particular block of code. If this block 
invokes another, then the old block is 
"pushed down" in the stack when the new one 
assumes control . This stacking of blocks 
of executable code is exactly matched by 
the allocations of AUTOMATIC storage, and 
so both storage and code can be controlled 
by the same stacking mechanism. This is 
achieved by means of the dynamic storage 
allocation facilitie s (provided by the 
library or control program) in association 
with general register 13. This register is 
maintained such that it always points at 
the storage area corresponding to the cur- 
rent block of code. As the areas are 
chained together it is a comparatively 
simple matter to "pop up" the stack when 
leaving a block, by resetting general reg- 
ister 13 to point at the previous area in 
the chain, and to release the current area. 
The following program and diagram illus- 
trate this mechanism. 



PSEUDO-REGISTER VECTOR ( PRV) 



A: PROCEDURE; 



The pseudo-register vector (PRV) is a 
task-oriented communications area, 
addressed through register PR(12): one PRV 
is established for each task or subtask. 
Object programs not employing multitasking 
will have only one PRV. Because of the 
possibility of multitasking in a dynamic 
environment, the PRV is contained in dynam- 
ic storage. The PRV contains a number of 
pseudo-registers which effectively operate 
as implicit arguments and give information 
about, for example, current program status. 
Since all references to specific pseudo- 
registers within the PRV are made by the 
addition of a fixed displacement to the 
base address (contained in register PR) of 
the PRV, read-only modules are able to 
address dynamically allocated storage 
obtained for any task (library workspace, 
for example) . 

Addressing of the PRV within library 
modules is effected by using Q-type address 
constants which are fixed during link- 
editing. All pseudo-register address 
constants within the PL/I implementation 
are two bytes in length; the maximum size 
of a PRV is 4 096 bytes. 



CALL B; 



B : PROCEDURE ; 



C: BEGIN; 



END C; 



END B; 



END A; 



When control is in block C„ the stack 
looks like this: 
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r t 

I l<— i 

| | | Storage for A 

I I I 

I 

r i I 

I I J 

| |< — -, Storage for B 

I I I 

L J | 



GR 13 > r n 



I J 

| Storage for C 



When control reverts from block C to 
block B f the stack takes on the following 
appearance: 



When a routine in System/3 60 assembler 
language is used in a tasking environment, 
any DSA obtained in it must have at least 
108 bytes. (The minimum for a DSA in a 
non-tasking environment is 100 bytes). 



VARIABLE DATA AREA (VDA) 



In some instances, it may be necessary 
to obtain storage after the DSA has been 
allocated. For example, the following 
statements would cause this situation to 
arise: 



PROC ; 

DCL I INITIAL (10) ; 

DCL A(I) CHAR(6) ; 



<— n 



L J 

GR 13 > r n 






Storage for A 



Storage for B 



These areas of storage are known as 
dynamic storage areas (DSAs) . 



DYNAMIC STORAGE AREA (DSA) 



Each Dynamic Storage Area is an entry in 
the run-time stack and, consequently, each 
DSA must possess a standard layout. Figure 
4 3 shows the functional content of a DSA. 



END A; 

In the above example, the prologue of 
procedure A would first establish its DSA, 
then initialize the variable I, and then 
obtain more dynamic storage for the array 
A. This storage is known as a variable 
data afea (VDA) and can conceptually be 
regarded as a secondary stack based on 
individual members of the primary stack of 
DSAs. 

VDAs are required in a number of circum- 
stances in addition to that outlined above. 
In particular, code may be compiled to 
obtain a VDA whenever there is a demand for 
temporary workspace (e.g. for strings of 
more than 256 bytes). 



PROLOGUES AND EPILOGUES 



1 1 

I I 

1 I 

I I 
•I 



STANDARD 
SAVE AREA 



T 

FLAGS j LENGTH OF AREA 

J. 

CHAIN BACK 

CHAIN FORWARD 

REGISTER SAVE AREA 

ENVIRONMENT AND INTERRUPT 
CONTROL INFORMATION 

DOPE VECTORS AND DEDS 
(IF ANY) 
AUTOMATIC DATA, 
PARAMETER LISTS, 
WORKSPACE, 
EXTRA SAVE AREAS 



Figure 4 3. Functional Content of a Dynamic 
Storage Area 



It can be seen from a study of the 
language and from the foregoing descrip- 
tion, that it is necessary for each block 
to have a "prologue" and an "epilogue." 
Each prologue must save registers in the 
area provided, obtain storage for its new 
DSA, update register 13 to point at the 
DSA, maintain the forward and backward 
chains, initialize the environment and 
interrupt control entries, initialize the 
dope vectors (if any), and decide which 
entry point is required. The epilogue has 
complementary tasks to perform before 
finally returning. 

In view of the fact that these 
prologues/ epilogues must be executed each 
time a block is entered and left, space 
economy is achieved by incorporating as 
much of this work into subroutines as 
possible. 
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The library routines contain certain 
sections of the prologue and epilogue which 
are common to all prologues and epilogues. 
The functions of the prologue subroutines 
are: 

1. To preserve the environment of the 
invoking block 



2. To obtain and initialize 
storage for the block 



AUTOMATIC 



3. To provide chaining mechanisms to ena- 
ble the program's progress to be 
traced. 

The main functions of the epilogue sub- 
routine are to release storage for the 
block, and to recover the environment of 
the invoking block before returning control 
to it. 



is always to a compiler generated control 
section, IHENTRY. This calls the appropri- 
ate PL/I library initialization routine 
(IHESA or IHETSA) ; the choice depends on 
the OPT parameter and whether the main 
procedure has the TASK option or not. The 
routine selected provides the PRV and 
Library workspace, issues a SPIE macro, and 
then transfers control to the address con- 
tained in a control section named IHEMAIN. 
This address constant is produced by the 
compiler for each external procedure with 
the MAIN option. The situation is illus- 
trated in Figure 44. If an argument list 
is to be passed to the PL/I program, IHESA 
or IHETSA must be entered at the appropri- 
ate entry point. 

If more than one module has the MAIN 
option, the linkage editor will accept the 
first appearance of the control section 
IHEMAIN in its input stream and ignore the 
rest. 



INTERRUPT ACTIVITY AND CONTROL 



All interrupt activity in PL/I is con- 
trolled at the language level by means of 
prefix options and ON statements. At 
object time, all interruptions are chan- 
neled through the library error handling 
module, IHEERR. Hardware interruptions are 
passed to IHEERR because a SPIE macro is 
issued as part of a PL/I program's initial- 
ization, in which IHEERR is nominated as 
the exit for the user. Programmed inter- 
ruptions reach IHEERR by means of the 
normal branch and link instruction. 



COMBINATION OF PL/I WITH OTHER LANGUAGES 



The programming example in Appendix D 
illustrates the inclusion of a subroutine 
written in assembler language. This sub- 
routine performs some of the functions of a 
PL/I procedure and shows how to make use of 
PL/I library subroutines. The functional 
capabilities of the subroutine are fully 
described in the commentary contained with- 
in it. 



In order to locate the ON-unit (if any) 
specified in the PL/I program, the error 
handler searches through the stack until it 
finds the necessary information in the 
interruption control area of a DSA. If the 
search is unsuccessful, then SYSTEM action 
is taken. 



INITIAL ENTRY TO PROCEDURES WITH THE MAIN 
OPTION 



In order to achieve the proper initiali- 
zation of PL/I programs, the primary entry 



CALLING SEQUENCES AND REGISTER USAGE 



Linkage between PL/I procedures is pro- 
vided by the standard operating system 
System/360 calling sequence with the excep- 
tion that the last argument in the parame- 
ter list is not indicated by a '1' in the 
high-order bit. (Refer to the publication 
IBM System/360 Operating System, Supervisor 
and Data Management Services ) . In addi- 
tion, the trace forward chain is main- 
tained. 



PR0C1 IHEMAIN 

r t r 

J PL/I |< -J A(PROCl) 

| PROCEDURE | L 

| WITH MAIN j 
| OPTION | 
L J 



IHESA/ IHETSA 

r 1 

H A (IHEMAIN) |<- 
L J 



IHENTRY 

r n 

-\ A(IHESA/IHETSA) j 
L J 



Figure 44. Initial Entry to Procedures with the MAIN Option 
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Register usage in object code produced 
by the PL/I (F) compiler observes the 
following conventions: 



Reqister 


Description of Use 





Work Register 


1 


Work Register and Parai 




List Pointer 


2-8 


Work Registers 


9 


Address Register 


10 


Program Base 


11 


Static Data Pointer 


12 


Pseudo-Register Vector 




Pointer 


13 


Current DSA Pointer 


14 


Arithmetic and Return 



Register 

15 Arithmetic and Branch 
Register 

The linkage conventions for library 
modules, some of which employ an internal 
standard, are described below. 



LINKAGE CONVENTIONS FOR LIBRARY MODULES 



Caller provides a standard format reg- 
ister save area addressed through reg- 
ister DR(13) 

Registers used by the called program 
are saved in the save area provided 

If the called module in turn calls 
another module,, it provides that 
module with a save area, updating 
register DR to address the new save 
area, and chaining it to the old save 
area 

Upon return to the calling module, 
registers RB(2) through LR(IU), the 
program mask and PICA will be 
unchanged, while registers 
R0(0),RA(1), BR(15), the floating- 
point registers, and the condition 
code may be changed 



PRESENTATION OF ARGUMENTS 



The normal System/ 36 operating system 
standard of passing parameters, by pointing 
at a list of addresses, is employed in PL/I 
object code. These addresses point 
directly at data in the case of scalar 
variables only, provided they are not 
strings. In all other cases, the address 
passed is that of a control block known as 
a "dope vector." Various types of dope 
vector are described below. 



Intermodule linkage conforms to either 
the System/360 operating system calling 
sequence standards or an internal PL/I 
standard. The latter applies only to cer- 
tain library modules which require a higher 
degree of efficiency. The internal stand- 
ard passes the addresses of arguments in 
registers rather than through a parameter 
list; in all other respects, it is identi- 
cal to the System/3 60 operating system 
standards. The internal standard is 
optionally employed under the following 
constraints: 

1. The number of arguments must be less 
than eight 

2. The arguments must be fixed in number 

If these constraints cannot be met, the 
operating system standard is employed. 
Definition of operating system linkage con- 
ventions is provided in the publication IBM 
System/360 Operating System, Supervisor and 
Data Management Services . Several salient 
features of these conventions are: 



1. Arguments are passed by name, 
value 



not by 



STRING DOPE VECTOR (SDV) 



This control block specifies storage 
requirements for string data. An SDV con- 
sists of eight bytes (word-aligned) , in the 
format shown in Figure 45. 

2 3 7 8 31 

r t t 1 

|BtOf| | Byte address of string | 
V j. x T ., 

| Maximum length | Current length | 

L L J 

Figure 4 5. Format of the String Dope Vec- 
tor (SDV) 

Definition of SDV fields: 

BtOf (Bit offset): If the string is a bit 
string, positions to 2 of the SDV 
specify the offset of the first bit of 
the string within the addressed byte. 
The bit offset is only applicable to 
bit strings which form part of a data 
aggregate, and then only if that aggre- 
gate has the UNALIGNED attribute. 
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Byte address of string: For both character 
and bit string this three-byte field 
specifies the address of the initial 
byte of the string. 

Maximum length: Half word binary integer 
which specifies the number of storage 
units allocated for the string; byte 
count if character, bit count if bit. 
This value does not vary for a particu- 
lar generation of its associated 
string. 

Current length: Halfword binary integer 
which specifies the number of storage 
units, within the maximum length, cur- 
rently occupied by the string. 

The two length fields exist to accommo- 
date strings with the VARYING attributes; 
in the instance of a fixed- length string, 
the two fields contain identical values. 
For both fields the maximum value is 
32,767. 
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^ — x. 
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X— 
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AREA DOPE VECTOR 



^ 

i 
j 

Figure 46. Format of the Array Dope Vector 
(ADV) 



The ADV contains ( 2n + 1) 32-bit words, 
where n is the number of dimensions of the 
array. The number of dimensions in the 
array is not described within the ADV, but 
is passed to the library as an additional 
argument. 



This has the same format as the string 
dope vector, except that both the length 
fields are the same and contain the length 
of the AREA (not including the 16-byte 
control area) . 



Defini t ions of ADV f ields: 

BtOf (= Bit offset) : For an array of bit 
strings with the UNALIGNED attribute, 
this is the bit offset from the byte 
address of the virtual origin. 



ARRAY DOPE VECTOR (ADV) 



This control block, shown in Figure 46, 
contains information required in the deri- 
vation of elemental addresses within an 
array data aggregate. The ADV has three 
functions: 



Virtual origin: The byte address of the 
array element whose subscript values 
are all zero, i.e. , X(0, . . . , 0) ;this ele- 
ment need not be an actual member of 
the array, in which case the virtual 
origin will address a location in stor- 
age outside the actual bounds of the 
array. 



1. Given an array, to step through 
array in row-major order 



the 



2. Given the subscript values of an array 
element, to determine the element 
address 

3. Given an element address, to determine 
its subscript values 

Within PL/I implementation, arrays are 
stored in row-major order, upward in stor- 
age. The elements of an array are normally 
held in contiguous storage, although this 
may not be so if the array is a member of a 
structure. However, any lack of contiguity 
is transparent to algorithms which employ 
an array dope vector. 



Multiplier: Multipliers are fullword 
binary integers which in the standard 
ADV algorithm effect dimensional 
incrementation or decrementation to 
locate an element. Multipliers are in 
bits for fixed-length, bit string 
arrays, otherwise in bytes. 



Upper Bound: Halfword binary integer, 
specifying the maximum value permitted 
for a subscript in the ith dimension. 
This value may be negative. 

Lower Bound: Halfword binary integer, 
specifying the minimum value permitted 
for a subscript in the ith dimension. 
The value may be negative. 
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ADV Algorithm: Given subscript values 

for an n- dimensional array, the address 
of any element is computed as: 



Address = virtual origin + £] 

i=l 



S i* M i 



where S^ = value of the ith subcript 

M^ = value of the ith multiplier 

For an array of bit strings with the 
UNALIGNED attribute, the origin is a bit 
address formed by concatenating the virtual 
origin and the bit offset. For all other 
arrays, the origin is the virtual origin. 



STRUCTURE DOPE VECTOR 



ture or to minor structures are inherited 
by the contained structure base elements; 
undimensioned non-string base elements are 
assigned a dope vector consisting only of a 
single-word address field. The structure 
dope vector is then derived by concatenat- 
ing the dope vectors which the base ele- 
ments would have if they were not part of a 
structure, in the order in which the ele- 
ments appear in the structure. 

Example : 

The following structure would have a 
dope vector of the form shown in Figure 47: 



1 A, 2 



B (10), 


3 


C 


(10) CHAR (6), 




3 


D 


BIT (10) VARYING, 


E, 


3 


F 


FLOAT (5) , 




3 


G 


(10) FIXED, 




3 


H 


CHAR (3); 



This control block contains information 
required to derive, directly or indirectly, 
the address of all elements of the struc- 
ture. 

The format of a structure dope vector is 
determined as follows. The dimensions 
which have been applied to the major struc- 



STRING ARRAY DOPE VECTOR ( SADV) 



This control block contains information 
required to derive, directly or indirectly 
(through a secondary array of SDV entries), 



Y- 



L_. 



C's Virtual origin 
Multiplier! 
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Figure 47. Format of the Structure Dope Vector (SDV) 
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the address of elemental strings. The SADV 
is identical to the basic ADV f with the 
addition of a fullword which describes the 
string length, as shown in Figure 48. 




| Maximum length 

L 



T < 

| Current length/0 | 
j. j 



Figure 48. Format of the Primary String 
Array Dope Vector (SADV) 

Fixed-length strings require only a pri- 
mary dope vector. The two length fields 
are set to the same value, which is the 
declared length of the string. 

Variable-length strings require, in 
addition to the primary dope vector, a 
secondary dope vector which consists of SDV 
entries for each elemental string within 
the array. The secondary dope vector is 
addressed via the primary dope vector by 
the standard ADV algorithm; having located 
the relevant SDV, the actual string data is 
directly addressable. The maximum- length 
field appended to the ADV is set to the 
maximum length of each array element. The 
current-length field is set to zero for 
arrays of VARYING strings, while for fixed- 
length strings it is set to the maximum 
length. Whereas the multipliers of the ADV 
for a fixed- length string apply to the 
actual string data, those of the ADV for a 
variable-length string apply to the 
secondary dope vector of SDV entries. 



STRUCTURE MAPPING 



For any structure (major or minor) , the 
length, alignment requirement, and position 
relative to a doubleword boundary will 
depend on the lengths, alignment require- 
ments, and relative positions of its mem- 
bers. The process of determining these 
requirements for each level in turn and 
finally for the complete structure, is 
known as structure mapping . 



During the 
the F compil 
unused storage 
the structure, 
process befor 



according (in 
cussed in the 
necessary for 



structure mapping process, 
er minimizes the amount of 

(padding) between members of 

It completes the entire 

e the structure is allocated, 

effect) to the rules dis- 

following paragraphs. It is 
the user to understand these 



rules for such purposes as determining the 
record length required for a structure when 
record-oriented input/output is used, and 
for determining the amount of padding or 
rearrangement required to ensure correct 
alignment of a structure for locate-mode 
input/output (see "Record Alignment" in 
Appendix B). 



Structure mapping is not a physical 
process. Although during this discussion 
such terms as "shifted" and "offset" are 
used, these terms are used purely for ease 
of discussion, and do not imply actual 
movement in storage; when the structure is 
allocated, the relative locations are 
already known as a result of the mapping 
process. 

The mapping for a complete structure 
reduces to successively combining pairs of 
items (elements, or minor structures whose 
individual mappings have already been 
determined). Once a pair has been com- 
bined, it becomes a unit to be paired with 
another unit, and so on until the complete 
structure has been mapped. The rules for 
the process are therefore categorized as: 

Rules for determining the order of 
pairing 

Rules for mapping one pair 

These rules are described below, and the 
example at the end of this section shows an 
application of the rules in detail. 

Note; To follow these rules, it is neces- 
sary to appreciate the difference between 
logica l level and level number .. The item 
with the greatest level number is not 
necessarily the item with the deepest logi- 
cal level. If the structure declaration is 
written with consistent level numbers or 
suitable indention (as in the detailed 
example given after the rules) , the logical 
levels are immediately apparent. In any 
case, the logical level of each item in the 
structure can be determined by applying the 
following rule to each item in turn, start- 
ing at the beginning of the structure 
declaration: 

The logical level of a given item is 
always one unit deeper than that of the 
nearest preceding item that has a les- 
ser level number than the given item. 



For example: 



DCL 1 A, 

1 



4 B, 
2 



5 C, 5 D, 
3 3 



3 E, 8 F, 7 G; 



The lower line shows the logical level 
for each item in the declaration. 
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Rules for Order of Pairing 



The steps in determining 
pairing are as follows: 



the order of 



Find the minor structure with the 
deepest logical level (which we will 
call logical level n) . 

If the number of minor structures at 
logical level n exceeds one, take the 
first one of them as it appears in the 
declaration. 

Using the rules for mapping one pair 
(see below) , pair the first two ele- 
ments appearing in this minor struc- 
ture, thus forming a unit,. 

Pair this unit with the next element 
(if any) appearing in the declaration 
for the minor structure, thus forming 
a larger unit. 

Repeat rule 4 until all the elements 
in the minor structure have been com- 
bined into one unit. This completes 
the mapping for this minor structure; 
its alignment requirement and length, 
including any padding, are now deter- 
mined and will not change (unless the 
programmer changes the structure 
declaration) . Its offset from a dou- 
bleword boundary will also have been 
determined; note that this offset will 
be significant during mapping of any 
containing structure, and it may 
change as a result of such mapping. 

Repeat rules 3 through 5 for the next 
minor structure (if any) appearing at 
logical level n in the declaration. 

Repeat rule 6 until all minor struc- 
tures at logical level n have been 
mapped. Each of these minor struc- 
tures can now be thought of as an 
element for structure mapping purpos- 
es. 

Repeat the process for minor struc- 
tures at the next higher logical 
level; that is, make n equal to 
(n - 1) and repeat rules 2 through 7. 

Repeat rule 8 until n = 1 ; then repeat 
rules 3 through 5 for the major struc- 
ture. 



Rules for Mapping One Pair 



(As stated earlier, terms apparently 
implying physical storage are used here 
only for ease of discussion; the storage 



thus implied may be thought of as an 
imaginary model consisting of a number of 
contiguous doublewords. Each doubleword 
has eight bytes numbered zero through 7, so 
that the offset from a doubleword boundary 
can be given; in addition, the bytes in the 
model may be numbered continuously from 
zero onwards, starting at any byte, so that 
lengths and offsets from the start of a 
structure can be given.) 

1. Begin the first item of the pair on a 
doubleword boundary; or, if the item 
is a minor structure that has already 
been mapped* offset it from the dou- 
bleword boundary by the amount indi- 
cated. 

2. Begin the other item of the pair at 
the first valid position following the 
end of the first item. This position 
will depend on the alignment require- 
ment of the second item. Alignment 
and length requirements for elements 
are given in Figures 49 and 49.1. (If 
the item is a minor structure, its 
alignment requirement will have been 
determined already.) 

3. Shift the first item towards the sec- 
ond item as far as the alignment 
requirement of the first item will 
allow. The amount of shift determines 
the offset of this pair from a double- 
word boundary. 

After this process has been completed, 
any padding between the two items will have 
been minimized and will remain unchanged 
throughout the rest of the operation. The 
pair can now be considered to be a unit of 
fixed length and alignment requirement; its 
length is the sum of the two lengths plus 
padding, and its alignment requirement is 
the higher of the two alignment require- 
ments (if they differ). 



Effect of UNALIGNED Attribute 



The example of structure mapping given 
below shows the rules applied to a struc- 
ture declared ALIGNED, because mapping of 
aligned structures is more complex owing to 
the number of different alignment require- 
ments. Briefly, with the F compiler, the 
general effect of the UNALIGNED attribute 
is to reduce fullword and doubleword align- 
ment requirements down to byte, and to 
reduce the alignment requirement for bit 
strings from byte down to bit. The same 
structure mapping rules apply, but the 
reduced alignment requirements are used. 
This means that unused storage between 
items can only be bit padding within a 
byte, and never a complete byte; bit pad- 
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J. — 

BIT (n) 



Variable 
Type 



Stored Internally 
as 



Storage 
Requirements 
(in Bytes) 



Alignment 
Requirements 



Explanation 



One byte for each 
group of 8 bits 
(or part thereof) 



n rounded 

- up 

8 



CHARACTER (n) 



One byte per 
character 



PICTURE 



One byte for each 
PICTURE character 
(except 
M, V, K, G) 



Number of 
PICTURE charac- 
ters other than 
M, V, K f and G 



Byte 



DECIMAL FIXED (p f q) 



1/2 byte per 
digit plus 1/2 
byte for sign 



p + 1 rounded 

up 

2 



Data may 
begin on 
any byte 
through 7 



BINARY FIXED (p,q) 



Binary integer 



BINARY FLOAT (p) 
p < 22 



DECIMAL FLOAT (d) 
P < 7 



Short 
floating point 



Full 
word 



POINTER 



OFFSET 



LABEL 



TASK 



28 



EVENT 



32 



Data may 
begin on 
byte or 
U only 



■+■ 



BINARY FLOAT (p) 
21 < p < S4 



h 



DECIMAL FLOAT (p) 
6 < p < 17 



Long 

floating point 



Double 
word 



H 



| AREA | - |16+length | 

L X JL J. 

•Figure 49. Summary of Alignment Requirements for ALIGNED Data 



Data may 
begin on 
byte 
only 



ding may occur when the structure contains 
bit strings. 

POINTER, OFFSET, LABEL, TASK, EVENT, and 
AREA data cannot be unaligned. If a struc- 
ture has the UNALIGNED attribute and it 
contains an element that cannot be unal- 
igned, then UNALIGNED is ignored for that 
element; the element is aligned by the 
compiler and error message IEM3181I is put 



out. For example, 
declaration 



in a program with the 



DECLARE 1 A UNALIGNED, 
2 B, 
2 C AREA (100) ; 

C is given the attribute ALIGNED, as the 
inherited attribute UNALIGNED conflicts 
with AREA. 
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Variable 
Type 



Stored Internally 
as 



Storage 
Requirements 
(in Bytes) 



Alignment 
Requirements 



Explanation 



BIT (n) 



As many bits as 
are required, 
regardless of 
byte boundaries 



n bits 



Bit 



Data may begin 
on any bit in 
any byte 
through 7 



CHARACTER (n) 



One byte per 
character 



Y 

PICTURE 



One byte for each 
PICTURE character 
(except M,V,K,G) 



Number of PICTURE 
characters other 
than M,V,K and G 



DECIMAL FIXED (p,q) 



1/2 byte per 
digit, plus 1/2 
byte for sign 



p + 1 rounded 

up 

2 



BINARY FIXED (p,q) 



Binary integer 



Byte 



BINARY FLOAT (p) 
p < 22 



DECIMAL FLOAT (p) 
p < 7 



Short 
floating point 



BINARY FLOAT (p) 
21 < p < 54 



DECIMAL FLOAT (p) 
6 < p < 17 



Long 

floating point 



Data may begin 
on any byte 
through 7 



Note: POINTER, OFFSET, LABEL, TASK, EVENT, and AREA data cannot be UNALIGNED. 
•Figure 49.1. Summary of Alignment Requirements for UNALIGNED Data 



Example of Structure Mapping 



This example shows the application of 
the structure mapping rules for a structure 
declared as follows: 



DECLARE 1 A ALIGNED, 

2 B POINTER, 
2 C, 

3 D FLOAT DECIMAL(14), 
3 E, 

4 F LABEL, 
4 G, 

5 H CHARACTER (2) , 
5 I FLOAT DECIMAL (13), 
4 J FIXED BINARY (15,0), 
K CHARACTER (2), 
L FIXED BINARY (15,0), 



3 

3 

M, 

3 N, 

4 P FIXED BINARY(15,0) , 

4 Q CHARACTER (2), 

4 R FLOAT DECIMAL (2), 



3 S, 

4 T FLOAT DECIMAL (15), 
4 U CHARACTERS), 

3 V POINTER, 
2 W PICTURE ' $ 9V99 ' ; 



The minor structure at the deepest logi- 
cal level is G, so that this is mapped 
first. Then E is mapped, followed by N, s, 
C, and M, in that order. Finally, the 
major structure A is mapped. For each 
structure, a table is given showing the 
steps in the process, accompanied by a 
diagram giving a visual interpretation of 
the process. At the end of the example, 
the structure map for A is set out in the 
form of a table showing the offset of each 
member from the start of A. 
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Step 1 
Step 2 



h 



Name of 
Item 



H 

I 

*H 
I 



T T T 

| |Offset from| 

Alignment j Length |Doubleword | Length of 

Requirement j |- T -j Padding 

| | Begin | End | 



Byte 
Double 

Byte 
Double 



-+- 



| G | Double | 10 

L J. X 

♦First item shifted right 



Offset from 
G 



Step 






1 


23 


4 


5 


6 


7 





1 


2 


3 


4 


5 


6 


7 





1 


2 


3 


4 


5 


6 


7 


o| 1 


2 


3 


4 


5 


6 


7 































































Step 2 



234567012345670 12345670 I 2345670 



•Figure 50. Mapping of Minor Structure G 
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Step 1 
Step 2 
Step 3 



Name of 
Item 


"T- 

1 


Alignment 
Requirement 


1 


Length 


-T 

| Offset fror 
|Doubleword 


i 


Length of j Offset 
Padding | E 

_ _ j. 


from 


r T 

| Begin) 

-4- -L- 


End 




F 
G 


1 


Word 
Double 


1 


8 
10 


T 

1 o 

1 6 




7 
7 








*F 
G 




Word 
Double 




8 
10 


1 t 
1 6 




3 
7 




1 o 

2 | 10 




F 

through 

G 

J 




Double 




20 


1 4 




7 










Word 




4 


1 o 




3 




| 20 





i- + 1 + + + + ^ 

| E | Double | 24 | U | 3 | | | 

L JL X— J. ± J i J 

♦First item shifted right 



Step 



0123456701 23456701 23456701 2345670 



Step 2 



? 



/ftvd 






Step 3 



T2 



:5: 



^Si 



2345670 12345670 



'Figure 51. Mapping of Minor Structure E 
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Step 1 
Step 2 



j. + + + + + + ^ 



Name of 
Item 



P 
Q 

P 

through 

Q 

R 



Alignment 
Requirement 



Word 
Byte 

Word 
Word 



T T~- T" 

| Offset from | 
Length JDoubleword | Length of 

[■ -— r \ Padding 

| Begin j End | 







3 | 

5 I 
I 
I 

5 I 
I 

3 I 



Offset from 
N 



1 


N 


— +- 
1 


Word 


+- 

1 


12 


— +- 
1 





-+- 
1 


3 


-+ 

1 


+ 

1 



























Step I 



Q 



123 45670 I 2345670 I 2345670 



2 345670 



Step 2 



R 



5 



v/w/t 



N 



•Figure 52. Mapping of Minor Structure N 



j j j j Offset fromj 

| Name of j Alignment | Length JDoubleword j Length of 

| Item j Requirement j \ - T — ^ Padding 

| j | | Begin | End | 



Step 1 j 



Offset from 
S 



1 


T 


— +- 
1 


Double 


— +- 
1 


8 


— +- 
1 





-+- 
1 


7 


-+ 

1 




— + — 
1 





1 

L 


U 


1 


Byte 


1 

-— 4-- 


2 


1 
-4~ 





1 

L 


1 


1 





1 

4. 


8 


r 

1 


S 


— f— 
1 


Double 


1 


10 


1 





1 


1 


1 




1 

































Step 



0123456701 23456701 23456701 2345 67 



•Figure 53. Mapping of Minor Structure S 
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Step 1 
Step 2 

Step 3 



k- 













j Offset 


f roml 






Name of 


1 


Alignment 
Requirement 


1 


Length 


|Doubleword 

L _ _ — -- 


H 
i 


Length of | Offset 
Padding | C 

j. 


from 




r t 

| Begin | 
-4. -L 


End 




D 




Double 




8 


I o 




7 




1 o 




E 




Double 




24 


1 *» 




3 




4 | 12 




D 
through 

E 




Double 




36 


1 o 




3 








K 




Byte 




2 


1 4 




5 




| 36 




D 

through 

K 

L 




Double 




38 


1 o 




5 










Word 




4 


1 o 




3 




2 | 40 





1— 
1 


c 


1 


Double 


1 


44 


1 





-+- 
1 


3 


-+ 

1 


+ 

1 


L 

























Step I 



D 



,0 'A' -2< '3- 



E (length 24) 



n 



Step 2 



D 



E (length 24) K 



wmM f^ 



Step 3 



E (length 24) K 



4 






•Figure 54. Mapping of Minor Structure C 
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Step 1 
Step 2 
Step 3 













| Offset 


f roml 






Name of 
Item 


1 


Alignment 
Requirement 


l 


Length 


| Doubleword 
L 


H 
1 


Length of | Offset 
Padding j M 

_ _ _ j. _ _ 


from 


f y 

| Begin | 
_4. x_ 


End 




N 




Word 




12 


1 | 


3 








S 




Double 




10 


1 o | 


1 








*N 




Word 




12 


1 1 1 


7 




1 o 




S 




Double 




10 


1 | 


1 




| 12 




N 

through 

S 

V 




Double 




22 


1 4 1 


1 










Word 




4 


1 1 1 


7 




2 | 2H 





Double 



28 



♦First item shifted right 



Step I 



N 



I 2345670 123456701 2345670 I 2345670 



Step 2 



N 



234 5 6 70 I 2345670 I 2345670 I 2345670 



Step 3 



N 

















, a , 





1 


2 


3 


4 


5 


6 


7 





1 


2 


3 


4 


5 


6 


7 





1 


2 


3 


4 


5 


6 


7 





1 


# 
# 


'3- 


4 


5 


6 


7 



































































•Figure 55. Mapping of Minor Structure M 



M 
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Step 1 
Step 2 
Step 3 

Step 4 



| Name of 
I Item 




Alignment 
Requirement 




Length 


| Offset fror 
j Doubleword 
L ___ 




Length of | Offset 
Padding j A 


from j 




r — ! t 

| BeginJ 


End 




1 B 
1 c 




Word 
Double 




4 
44 


1 | 
1 | 


3 
3 








| *B 

1 c 




Word 
Double 




4 
44 


1 t 1 
1 o | 


7 
3 




1 o 

| 4 




1 B 
| through 
C 




Double 




48 


1 4 1 


3 








1 M 




Double 




28 


1 4 1 


7 




| 48 




1 B 
I through 

1 M 
1 w 




Double 




76 


1 4 1 


7 










Byte 




4 


1 o | 


3 




| 76 





I A | Double | 80 | 4 | 3 | 

L X X X X X. 

♦First item shifted right 



Step I 



C (length 44) 



W 



Step 2 



W 



Step 3 



M (length 28) 



W 



w 



Step 4 



B C 



M 



W 



If. 



If 



A (length 80) 



•Figure 56. Mapping of Major Structure A 
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1 A 


B 
C 


D 

padding (4) 

E 

F 

padding (2) 

G 
H 
I 

J 
K 

padding (2) 
L 




From 

2 


G | 


From 

8 
10 
10 
12 
20 


E 




From 

8 
12 
12 
20 
22 
22 
24 
32 
36 
38 
40 


C 




From A | 

1 

4 1 

1 1 
12 | 
16 | 
16 | 
24 | 
26 | 
26 | 
28 | 
3 6 J 
40 | 

42 | 
44 | 


| M 




N 
P 

Q 

padding( 2) 

R 
S 

T 

u 
padding (2) 
V 








From 

4 
6 
8 

From 

8 


N 
S 




From 





4 

6 

8 

12 

12 

20 

22 

24 


M 




48 | 
48 | 
48 | 
52 | 
54 | 
56 | 
60 | 
60 | 
68 | 
70 | 
72 | 


1 w 
























76 | 


L 










— X- 






1 






-L. 


J 



•Figure 56.1. Offsets in Final Mapping of Structure A 



ALLOCATION AND RELEASE OF STORAGE IN AN 
AREA 



The AREA attribute defines storage res- 
erved for the allocation of based varia- 
bles . In this implementation the amount 
reaserved consists of sixteen bytes of 
control information plus the amount 
requested for each allocation (see Figure 
57). The control information and each 
allocation start on a doubleword boundary. 



The amount of storage 
defined in one of two ways: 



required is 



1. Area size: 



This is the amount of 



storage reserved in the declaration of 
an area. For example, in the state- 
ment: 

DCL Z AREA (5 00); 

The size of area Z is 5 00 bytes. The 
maximum size that can be declared is 
32767 bytes. The effective minimum 
size is 8 bytes; bytes can be 
declared but the AREA condition would 
be raised if an attempt was made to 
allocate a based variable into it. If 
a size is not declared, a default 
value of 1000 bytes is assumed. 

2. Area length This is the amount of 
storage needed for an area allocation. 



It is the area size, plus the 16 bytes 
of control information. For example: 

DCL Z AREA (500) CONTROLLED; 
ALLOCATE Z ; 

creates an allocated area Z of 516 
bytes. The maximum length is 32783 
bytes; the effective minimum length is 
24 bytes. The default length is 1016 
bytes. When an area is written using 
RECORD I/O, the amount transmitted is 
the area length, not the area size. 

The storage allocated for a variable 
always starts and ends on a doubleword 
boundary, whatever the amount requested. 
The amount allocated is 

8*(CEIL((L+H)/8)) 

when L = Variable length (in bytes) 

H = Offset (in bytes) of beginning of 
this variable from a doubleword 
boundary. Maximum value of H is 7 
bytes . 



The total amount 
for variables in an ar 
amount at a particular 
extent . The value of 
increased every time 
beyond the end of the 
is decreased only i 
forms the end of the 



of storage allocated 
ea is the extent; the 

time in the current 
the current extent is 
an allocation is made 
current extent. It 
f the allocation that 
current extent is 



174 



freed; then the value of the current extent 

is reduced accordingly. The current extent 

is not changed when an allocation within 
the extent is freed. 



When an allocation within the extent is 
freed, the freed area is called a free 
element. Each free element starts with two 



control words : 



Word 1: length 
bytes) 



of 



free element (in 



Word 2: Offset (in bytes) of next smal- 
lest free element. The last 
free element contains the off- 
set of the fourth word of the 
control information. 



The chain of free elements created in 
this way in the free list . 



When an allocation is required, the free 
list is examined to find the smallest free 
element in which the variable will fit. If 
no free element is large enough, then the 
unused section at the end of the current 
extent is used. If this in turn is not 
large enough, the AREA condition is raised. 



When an element is freed, the free list 
is scanned to find if this element is 
contiguous with another free element. If 
so, the two are combined and then placed in 
the free list according to the combined 
size. If there is no contiguous element,, 
the freed element is placed in the free 
list according to its size. 





8 
12 
16 



Length 



Current extent 



Offset of largest free element 



Reserved/ 
Allocated 



Free element 



Allocated 



Free element 



Allocated 



Free element 



Allocated 



Unused 



L J 

Note: If there is a free list, the 
fourth control word contains 0; 
otherwise it is unused. 

Figure 57. AREA Format, Showing Example of 
Allocated Storage and Free Ele- 
ments 
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APPENDIX D: PROGRAMMING EXAMPLE 



VERSION H RELEASE 17 



OS/360 PL/I COMPILER (F) 



PAGE 1 

DATE 68.306 



PL/I F COMPILER OPTIONS SPECIFIED ARE AS FOLLOWS — 

LIST,ATR,XREF,OPT=1,LC=60,SIZE=96000 

THE COMPLETE LIST OF OPTIONS USED DURING THIS COMPILATION IS— EBCDIC 

CHAR60 

NOMACRO 
SOURCE2 

NOMACDCK 
COMP 
SOURCE 
ATR 
XREF 

NOEXTREF 
LIST 
LOAD 

NODECK 
FLAGW 
STMT 

SIZE=096000 
LINECNT=060 
OPT=01 
SORMGIN=(002, 07 2) 

NOEXTDIC 

NONEST 
OPLIST 



/♦THIS IS A SMALL PROGRAMMING EXAMPLE 



PAGE 



/♦THIS IS A SMALL PROGRAMMING EXAMPLE 

/•TO SHOW HfJW ASSEMBLER LANGUAGE SUBPROGRAMS CAN BE INCORPORATED 

/♦INTO A PL/I MAIN PROGRAM. 

/♦THIS MODULE IS DESIGNED TO ACCEPT A CHARACTER STRING ARGUMENT 
/♦OF ANY SIZE AND WRITE IT IN THE DATA SET DEFINED ON THE SYSPRINT 
/♦DD CARD. 

/♦THE ACTUAL OUTPUT OPERATION IS CARRIED OUT BY THE PL/I LIBRARY 
/♦MODULE IHEPRTB. WHICH IS INVOKED BY THE ASSEMBLER LANGUAGE 
/♦MODULE (PRINTER). 

/♦'PRINTER* IS INVOKED BY WRITING THE STANDARD CALL STATEMENT 
/♦IN PL/I, USING THE ENTRY NAME TO WHICH CONTROL IS TO BE PASSED. 

/♦TO RUN THIS JOB, THERE MUST BE A DD CARD TO DESCRIBE THE DATA SET 
/♦SYSPRINT. THE PL/I LIBRARY CONTAINS A DCB FOR THIS DATA SET, AND 
/♦WILL OPEN THE FILE FOR OUTPUT WHEN IT IS INVOKED, IF IT IS NOT 
/♦ALREADY OPEN. 

/♦TO EXECUTE THIS PROGRAM, THE PL/I AND ASSEMBLER LANGUAGE OBJECT 
/♦MODULES MUST BE LINKAGE EDITED TOGETHER INTO ONE MODULE. THE 
/♦MODULES MUST BE PREPARED FOR LINKAGE EDITING IN THE ORDER PL/I 
/♦MODULE FIRST, THEN ASSEMBLER LANGUAGE MODULE. 



TEST: PROCEDURE OPTIONS (MAIN) ; 
DECLARE Al CHAR(35); 



C,B = 2; 
D = U; 

Al = (B^(C^2))/D; 



CALL PRINTER (Al); 



/♦Al IS THE VARIABLE TO BE 
/♦WRITTEN ON SYSPRINT. 

/♦INITIALIZE C AND B 
/♦AND D. 

/♦CALCULATE A VALUE IN FLOATING 
/♦POINT AND CONVERT IT TO A CHAR- 
/♦ACTER STRING. 

/♦TO USE FACILITIES PROVIDED BY 
/♦THE LIBRARY ROUTINE TO PUT OUT 
/♦ERROR MESSAGES, IT IS NECESSARY 
/♦TO CALL THE SUBROUTINE PRINTER. 
/♦THIS IS WRITTEN IN ASSEMBLER 
/♦LANGUAGE, AND ILLUSTRATES TWO 
/♦IMPORTANT ASPECTS OF THIS SORT 
/♦OF LINKAGE. 



♦ / 
♦/ 

♦ / 

♦ / 
♦/ 

♦ / 

♦/ 
♦/ 
♦/ 

♦ / 
♦/ 

♦ / 

♦ / 

♦ / 

♦ / 

♦/ 
♦/ 
•/ 

♦ / 



♦/ 
♦/ 

♦ / 
♦/ 

♦/ 
♦/ 

♦ / 

♦ / 

♦ / 
♦/ 
+ / 
♦/ 

♦ / 

♦ / 
♦/ 



END TEST; 
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/♦THIS IS A SMALL PROGRAMMING EXAMPLE 



♦ / 



PAGE 



DCL NO. 
2 



IDENTIFIER 
Al 

B 



PRINTER 



ATTRIBUTE AND CROSS-REFERENCE TABLE 

ATTRIBUTES AND REFERENCES 

AUTOMATIC, STRING, CHARACTER 
5,6 

AUTOMATIC, DECIMAL, FLOATC SINGLE) 
3.5 

AUTOMATIC, DECIMAL, FLOAT< SINGLE) 
3,5 

AUTOMATIC, DECIMAL, FLOAT( SINGLE) 
4.5 

EXTERNAL, ENTRY, DECIMAL, FLOAT ( SINGLE) 
6 

ENTRY, DECIMAL, FLOAT (SINGLE) 



/♦THIS IS A SMALL PROGRAMMING EXAMPLE 



♦ / 



PAGE 



STORAGE REQUIREMENTS 

THE STORAGE AREA FOR THE PROCEDURE LABELED TEST IS 2 HO BYTES LONG 
THE PROGRAM CSECT IS NAMED TEST AND IS 184 BYTES LONG 
THE STATIC CSECT IS NAMED ♦♦♦TEST AND IS 100 BYTES LONG 



/♦THIS IS A SMALL PROGRAMMING EXAMPLE 



PAGE 



000038 8A0680 

000040 00000000 

00004U 00000000 

000030 00000000 

000048 00000000 

000050 4140000041200000 

000058 000000AC00230023 

000060 8A0600 

000068 2C 



STATIC INTERNAL STORAGE MAP 

DED FOR TEMP 
A- . TEST 
A. . IHEDNCA 
A. . IHESAFA 
A. . PRINTER 
CONSTANTS 
D.V. SKELETON 
DED 
DED 
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/*THIS IS A SMALL PROGRAMMING EXAMPLE 



PAGE 



OBJECT LISTING 



* STATEMENT NUMBER 1 



* PROCEDURE 






* REAL 


ENTRY 






000000 


47 


FO 


F 


00A 


000004 










000005 










00000A 


90 


EB 


D 


OOC 


00000E 


41 


AO 


F 


00A 


000012 


41 


80 


A 


026 


000016 


58 


BO 


A 


01E 


00001A 


58 


FO 


B 


020 


00001E 


58 


00 


A 


022 


000022 


05 


EF 






000024 


07 


F8 






000026 


07 


00 






000028 


00000000 


00002C 


000000FC 


1 


000030 


05 


AO 






000032 


05 


AO 






* PROLOGUE 


BASE 




000034 


41 


90 


D 


0D0 


000038 








I 


000038 


50 


DC 





000 


00003C 


92 


00 


D 


062 


000040 


92 


01 


D 


063 


000044 


92 


CO 


D 


000 


000048 


D2 


07 


D 


098 B 050 


00004E 


41 


FO 


D 


OAC 


000052 


50 


FO 


D 


098 


000056 


41 


AO 


A 


028 


00005A 


07 


00 






* PROCEDURE BASE 


00005C 








( 



CL.4 







000082 


7C 00 D 0A4 


ME 


0,B 






000086 


7D 00 D 0A0 


DE 


0,D 






00008A 


70 00 D 090 


STE 


0,WS1.1 






00008B 


41 10 D 090 


LA 


1,WS1.1 




TEST 


000092 


41 20 B 030 


LA 


2,DED. .04A0 






000096 


41 30 098 


LA 


3,DV..A1 




TEST 


00009A 


41 40 B 05B 


LA 


4.DED. .Al 


B 


10(0,15) 


00009B 


58 FO B 038 


L 


15,A..IHEDNCA 


DC 


ALK4) 


0000A2 


05 EP 


BALR 


14,15 


DC 


C'TEST* 










STM 


14,11,12(13) 


* STATEMENT NUMBER 


6 




LA 


10,10(0,15) 


00O0A4 


92 06 D 063 


MVI 


99(13) ,X'06* 


LA 


8,38(0,10) 


0000A8 


41 80 D 098 


LA 


8.DV..A1 


L 


11,30(0,10) 


000 OAC 


50 80 D 090 


ST 


8, WS1. 1 


L 


15,32(0,11) 


0000B0 


41 10 D 090 


LA 


1.WS1.1 


L 


0,34(0,10) 


0000B4 


58 FO B 040 


L 


15, A.. PRINTER 


BALR 


14,15 


0000B8 


05 EF 


BALR 


14,15 


BR 


8 










NO PR 





* STATEMENT NUMBER 


7 




DC 


A(SI.) 


0000BA 


92 07 D 063 


MVI 


99(13), X*07« 


DC 


F" 240* 


0000BE 


58 FO B 03C 


L 


15,A..IHESAFA 


BALR 


10,0 


0000C2 


05 EF 


BALR 


14,15 


BALR 


10,0 














* END PROCEDURE 




TEST 










END 




LA 


9,208(0,13) 










EQU 


♦ 










ST 


13,PR-.TEST(12) 










MVI 


98(13),X•00 , 










MVI 


99(13), X'01' 










MVI 


0(13), X'CO* 










MVC 


DV..A1(8),SKDV..04 
CC 










LA 


15, Al 










ST 


15.DV. .Al 










LA 


10.CL.2 










NO PR 














CL.2 



* APPARENT ENTRY 

* STATEMENT HUMBER 3 
00005C 92 03 D 063 
000060 D2 03 D 0A8 B 04C 
000066 D2 03 D 0A4 B 04C 

* STATEMENT NUMBER 4 
00006C 92 04 D 063 
000070 D2 03 D 0A0 B 048 

* STATEMENT NUMBER 5 
000076 92 05 D 063 
00007A 78 00 D 0A8 
00007E 7C 00 D 0A8 



EQU 



MVI 
MVC 
MVC 



MVI 
MVC 



MVI 

LE 

ME 



TEST 



99(13), X'30' 
C(4),C0414 
B(4),C..0414 



99(13), X"04' 
D(4) .C..0440 



99(13), X'05' 

0,C 

o,c 



/* THIS IS A SMALL PROGRAMMING EXAMPLE 
NO ERRORS OR WARNINGS DETECTED. 
COMPILE TIME 2.09 MINS 



*/ 



PAGE 
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OUTPUT FROM OS/360 ASSEMBLER (E) 



PAGE 1 



SYMBOL TYPE ID ADDR LENGTH 

PRINTER SD 01 000000 00004U 

IHESADA ER 02 

IHEPRTB ER 03 

IHESAFA ER OH 



PAGE 2 



LOC OBJECT CODE ADDR1 ADDR2 STMT 



SOURCE STATEMENT 



1* 
2* 
3* 

a* 



THIS SUBROUTINE ILLUSTRATES SOME OF THE FUNCTIONS 
NECESSARY IN ORDER TO COMMUNICATE BETWEEN A PL/I MAIN 
PROGRAM AND AN ASSEMBLER LANGUAGE SUBPROGRAM. 



5* 

6* 

7* 

8* 

9* 

10* 

11* 

12* 

13* 

1H* 

15* 

16* 

17* 

18* 

19* 

20* 

21* 

22* 



THE COMMENTS INCLUDED EXPLAIN FULLY WHAT HAS BEEN 
DONE TOGETHER WITH AN INDICATION OF WHAT MIGHT HAVE 
BEEN DONE. 

WHILE THIS IS A TRIVIAL EXAMPLE IT DOES 
SERVE TO DEMONSTRATE MOST OF THE LINKAGE 
PROBLEMS. IT SHOULD BE NOTED THAT THE STANDARD 
SAVE MACRO COULD HAVE BEEN EMPLOYED IN THIS 
SUBPROGRAM. 



THIS PROGRAM IS LIMITED TO EXTRACTING THE 
ADDRESS AND CURRENT LENGTH OF A CHARACTER STRING 
FROM ITS DOPE VECTOR, AND PRESENTING THESE ITEMS AS 
ARGUMENTS TO A LIBRARY PRINT ROUTINE. 

THE PROGRAM AND STORAGE MANAGEMENT ROUTINES USE 
DIFFERENT MODULES FOR MULTITASKING AND 
NON- MULTITASKING 
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LOC OBJECT CODE ADDR1 ADDR2 STMT 



SOURCE STATEMENT 



PAGE 3 



000000 
000000 
000000 47F0 F00C 

000004 07 

000005 D7D9C9D5E3C5D9 



00000C 90EB D00C 



000010 5A0 
000012 



000012 4100 0064 



000016 58F0 A026 
00001A 05EF 



23PRINTER 

24 
0000C 25 

26 

27 

28* 

29* 

30* 
00000C 31PRINT1 

32* 

33* 

34* 

35* 

36* 

37* 

3P* 

39* 

40* 

41* 

42* 

43* 

44* 

45* 

46 

47 

48 

49* 

50* 

51* 

52* 

53* 

54* 

55* 

56* 

57* 

58* 

59* 
00064 60 



00038 



00001C 9280 D000 00000 



61 

62 

63* 

64* 

65* 

66* 

67* 

68* 

69* 

70* 

71* 

72 

73* 

74* 

75* 

76* 



START 

USING * f 15 

BC 

DC 

DC 



15,PRINT1 

AL1C7) 

C PRINTER' 



STM 



14,11,12(13) 



LENGTH OF THE CHARACTER STRING 
WHICH FOLLOWS. ITS PURPOSE IS TO 
ENABLE THE PL/I SNAP OPTION TO 
PRINT OUT A TRACE IF SO REQUIRED. 

SAVE REGISTERS IN CALLER'S SAVE 
AREA. NOTE THAT THIS SUBPROGRAM IS 
PREPARED TO PRESERVE REGISTER 12. 
IN THE EVENT O F AN INTERRUPTION 
THE PL/I EXECUTION ERROR PACKAGE 
WOULD BE INVOKED. 

(IF IT WERE FELT TO BE NECESSARY 
THIS SUBROUTINE COULD HAVE HANDLED 
INTERRUPTIONS ITSELF BY SAVING 
REGISTER 12 AS WELL, ISSUING A 
SPIE MACRO, AND SAVING THE FORMER 
PICA ADDRESS. ON EXIT THESE ITEMS 
MUST BE RESTORED. ) 



ESTABLISH ADDRESSIBILITY FOR 
REST OF CCNTROL SECTION. THIS 
FOLLOWS THE SYSTEM USED BY THE 
OBJECT CODE PRODUCED EY THE F 
COMPILER. 



USE IS NOW MADE OF THE PL/I LIBRARY IN ORDER TO 
OBTAIN A SAVE AREA. THIS HAS BEEN DONE DYNAMICALLY AS 
THIS IS EXACTLY WHAT IS DONE BY PL/I OBJECT CODE. IF 
THERE IS NO ABSOLUTE REQUIREMENT FOR THIS CODE TO BE 
EITHER REENTRANT OR RECURSIVE THEN STORAGE COULD HAVE 
BEEN RESERVED FOR IT BY MEANS OF DC'S OR DS'S. 



DROP 15 
BALR 10,0 
USING *,10 



LA 0,100 



L 15,ADDR1 
BALR 14,15 



LENGTH OF DYNAMIC SAVE AREA 
(LENGTH IS 108 IF MULTITASKING IS 
USED) 

GET ADDRESS OF LIBRARY GETDSA 
ROUTINE, AND BRANCH TO IT. 



IT IS NOW NECESSARY TO INITIALIZE THE SAVE AREA. 
NOT MUCH WORK IS DONE IN THIS EXAMPLE BUT PL/I OBJECT 
CODE USUALLY PERFORMS MANY MORE FUNCTIONS. IT IS NOT 
ABSOLUTELY NECESSARY TO DO MORE THAN IS INDICATED HERE 
BUT IF THE READER WISHES TO OBSERVE ALL THE PL/I 
CONVENTIONS THEN CONSIDERABLY MORE CODE WOULD BE 
REQUIRED. 



MVI 0(13),X'80' 



MOVE IN FLAG BYTE AS REQUIRED 
BY LIBRARY FREEDSA ROUTINE. 



AT THIS STAGE THE SAVING CONVENTIONS HAVE BEEN 
DEALT WITH AND ATTENTION CAN BE GIVEN TO PARAMETERS 
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LOG OBJECT CODE ADDR1 ADDR2 STMT 



000020 5860 1000 

000024 5810 E000 

000028 4120 E006 

00002C 58F0 A02A 

000030 05EF 



00000 



00000 



00006 



0003C 



000032 58P0 A02E 
000036 07PF 



000038 00000000 
00003C 00000000 
OOOOUO 00000000 



00040 



77 

78* 

79* 

80 

81* 

82 

83* 

84 

85 

86* 

87* 

88* 

89* 

90* 

91* 

92* 

93 

9U 

95* 

96* 

97* 

98ADDR1 

99ADDR2 
100ADDR3 
101* 
102* 
103 



SOURCE STATEMENT 
L 14,0(0,1) 

L 1,0(0,14) 

LA 2,6(0,14) 

L 15 # ADDR2 

BALR 14,15 



PAGE 4 



GET ADDRESS OF ARGUMENT - NOTE 
THAT THIS IS NOT THE STRING 
ITSELF BUT ITS DOPE VECTOR. 

GET ADDRESS OF STRING FROM THE 
DOPE VECTOR. 

GET ADDRESS OF CURRENT LENGTH 
OF STRING FROM DOPE VECTOR. 

GET ADDRESS OF LIBRARY PRINT 
MODULE, AND BRANCH TO IT. 



UPON RETURN THIS SUBPROGRAM HAS COMPLETED 
ITS TASK AND NOW MAKES USE OF THE LIBRARY 
FREEDSA ROUTINE IN ORDER TO RELEASE ITS DYNAMIC 
STORAGE (USED AS A SAVE AREA), AND TO RETURN TO 
ITS CALLER. 



L 
BCR 



15.ADDR3 
15,15 



DC V(IHESADA) 
DC V(IHEPRTB) 
DC V(IHESAFA) 



END 



GET ADDRESS OF LIBRARY FREEDSA 
MODULE AND BRANCH TO IT- 



ADDRESS OF LIBRARY GETDSA RTN 
ADDRESS OF LIBRARY PRINT RTN 
ADDRESS OF LIBRARY FREEDSA RTN 



RELOCATION DICTIONARY 



POS.ID 

01 
01 
01 



REL.ID FLAGS 



02 
03 
OK 



1C 
1C 
1C 



ADDRESS 

000038 
00003C 
OOOOUO 



Appendix D: Programming Example 181 



APPENDIX E: CATALOGED PROCEDURES 



This section lists the PL/I (F) cata- 
loged procedures. It also describes state- 
ments used to override statements and par- 
ameters in any cataloged procedure. (The 
use of cataloged procedures is discussed in 
"Job Processing".) 

The procedures may be used with any of 
the System/36 operating system job schedu- 
lers. When parameters required by a parti- 
cular scheduler are encountered by another 
scheduler not requiring those parameters, 
either they are ignored or alternative 
parameters are substituted automatically. 
For example, if these procedures are used 
with a sequential scheduler the following 
parameters, which are required for the 
multiprogramming option with variable num- 
ber of tasks (MVT) , are treated as follows: 

REGION=xxxxK is ignored 
I DISP=SHR is interpreted as DISP=(OLD) 



Installation Modifications 



Before use, these procedures should be 
studied with a view to modifying them for 
greater efficiency within the particular 
environment of the installation. Some such 
modifications are detailed below. 

In installations using the MVT option of 
the operating system, the REGION specifi- 
cations for the compilation and link- 
editing steps must be altered where 
necessary to suit the available storage. 
The REGION specification for the compila- 
tion step must be at least 4K bytes greater 
than the storage specified in the compiler 
SIZE option (unless SIZE=999999) . Failure 
to ensure this may result in a system 
abnormal termination before the compiler 
can provide any diagnostic aid. In the 
three procedures in which the Linkage Edi- 
tor is invoked, a REGION of 96K has been 
specified for the link- editing step. If 
necessary, this REGION specification may be 
reduced to conserve storage. The minimum 
REGION specifications for the various 
design levels of the Linkage Editor are: 

Linkage Editor REGION Specification 



El 5 
E18 
E44 



2 4K 
26K 
54K 



Installations using the MVT option should 
also insert a REGION specification for the 



execution step in procedures PL1LFCLG and 
PL1LFLG, unless the default value is accep- 
table. The default value is established by 
the input reader procedure. 

Installations not using the MVT option 
should remove the superfluous parameters. 

In addition, the following general 
recommendations should be considered: 

under MVT, the system task initiator 
requires 52K bytes to initiate or ter- 
minate a step. If REGION<52K, the 
initiator may be held up during step 
termination until 5 2K bytes are availa- 
ble. 

when the MVT option is used, a SPACE 
parameter may be required for SYSPRINT 
if the device is other than a printer. 

the PARM fields for compilation and 
linkage editing steps should follow 
installation conventions. 

the SPACE and UNIT parameters for tem- 
porary data sets should be modified 
according to installation configuration 
and conventions. 

blocking factors should be specified 
for output data sets. 

For further information on writing 
installation cataloged procedures,, see the 
publication IBM System/360 Operating Sys- 
tem , System Programmer* s Guide . 



COMPILATION WITH DECK OUTPUT 



The cataloged procedure for compilation 
with deck output is shown in Figure 58. 

The cataloged procedure specified in the 
user's EXEC statement that invokes the PL/I 
(F) compiler is named PL1DFC. In turn, the 
EXEC statement PL1D within the cataloged 
procedure itself, indicates that the oper- 
ating system is to execute the program 
IEMAA (the name for the PL/I ( F) compiler). 
If compiler options are not explicitly 
supplied with the procedure, default 
options are assumed. The programmer can 
override the default options by specifying 
the required options in the EXEC statement 
invoking the cataloged procedure. 
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//PL1D EXEC PGM= IEMAA* 

PARM=" DECK, NOLOAD * ,, 
REGION=5 2K 

//SYSPRINT DD SYSOUT=A 

//SYSPUNCH DD SYSOUT=B 

//SYSUT3 DD UNIT=SYSSQ f 

SPACE=(80 r (250,250)), 
SEP= SYSPRINT 

//SYSUT1 DD UNIT=SYSDA, 

SPACE=(1024, (6 0, 60) ,, 
CONTIG), 
SEP=(SYSUT3, 
SYSPRI NT , SYSPUNCH ) 



•Figure 58. Cataloged Procedure (PL1DFC) 
for Compilation with Deck Out- 
put 



COMPILATION WITH OBJECT MODULE OUTPUT 



The cataloged procedure for compilation 
with object module output is shown in 
Figure 59. 

The cataloged procedure specified in the 
user's EXEC statement that invokes the PL/I 
(F) compiler is named PL1LFC. in turn, the 
EXEC statement PL1L within the cataloged 
procedure itself indicates that the operat- 
ing system is to execute the program IEMAA 
(the name for the PL/I ( F) compiler). 



//PL1L EXEC PGM= IEMAA, 

PARM= " LOAD , NODECK ■ , 
REGION=5 2K 

//SYSPRINT DD SYSOUT=A 

//SYSLIN DD DSNAME=6SLOADSET, 
DISP= (MOD, PASS) , 
UNIT=SYSSQ, 
SPACE=(80, (250,100)) 

//SYSUT3 DD UNIT=SYSSQ, 

SPACE=(80, (250,250)) , 
SEP= SYSPRI NT 

//SYSUT1 DD UNIT=SYSDA, 

SPACE=(1024, (60,60) ,, 
CONTIG), 
SEP=(SYSUT3, 
SYSPRINT, SYSLIN) 



L_. 



— J 



COMPILATION AND LINK-EDITING 



The cataloged procedure for compiling 
and link- editing a PL/I source program is 
shown in Figure 60. 



The EXEC statement invoking the linkage 
editor is named LKED, and specifies that 
the operating system is to execute IEWL, 
the name for the linkage editor program. 
If linkage editor options other than those 
in the cataloged procedure are required, 
the parameters on the //LKED EXEC card must 
be overridden as described below. 



//PL1L EXEC 

//SYSPRINT DD 
//SYSLIN DD 

//SYSUT3 DD 
//SYSUT1 DD 



//LKED EXEC 



//SYSLIB DD 



//SYSLMOD DD 



//SYSUT1 DD 

//SYSPRINT DD 
//SYSLIN DD 



PGM=IEMAA, 

PARM=* LOAD , NODECK ' , 

REGION=52K 

SYSOUT=A 

DSNAME=SSLOADSET, 
DISP=( MOD, PASS), 
UNIT=SYSSQ, 
SPACE=(80, (250,100)) 

UNIT=SYSSQ, 
SPACE=(80, (250,250)), 
SEP=SYSPRINT 

UNIT=SYSDA, 

SPACE=(102U, (60,60) ,, 

CONTIG) , 

SEP= ( SYSUT3 , SYSPRINT, 

SYSLIN) 

PGM=IEWL, 
PARM=*XREF,LIST', 
C0ND=(9,LT,PL1L) , 
REGION=96K 

DSNAME=SYS1.PL1LIB, 
DISP=SHR 

DSNAME=SSGOSET(GO) , 
DISP= (MOD, PASS) , 
UNIT=SYSDA, 

SPACE=(1024, (50,20,1) , 
RLSE) 

UNIT=SYSDA, 

SEP=( SYSLMOD, SYSLIB) , 

SPACE=(1024, (200,20)) 

SYSOUT=A 

DSNAME=S€LOADSET, 
DISP= (OLD, DELETE) 



// 



DD DDNAME=SYSIN 



►Figure 59. Cataloged Procedure (PL1LFC) 
for Compilation with object 
Module Output 



•Figure 60. Compilation and Link-Editing 
Cataloged Procedure (PL1LFCL) 
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COMPILATION. LINK-EDITING, AND EXECUTION 



LINK-EDITING AND EXECUTION 



The cataloged procedure for compiling, 
link-editing, and executing PL/I source 
programs (PL1LFCLG) is shown in Figure 61. 



The cataloged procedure for link-editing 
and executing a previously compiled PL/I 
program is shown in Figure 62. 



//PL1L EXEC 

//SYSPRINT DD 
//SYSLIN DD 

//SYSUT3 DD 
//SYSUT1 DD 



//LKED EXEC 



//SYSLIB DD 



//SYSLMOD DD 



//SYSUT1 DD 

//SYSPRINT DD 
//SYSLIN DD 

// DD 

//GO EXEC 



PGM=IEMAA, 

PARM= ■ LOAD , NOD ECK ' 

REGION=5 2K 

SYSOUT=A 

DSNAME=S fiLOADSET, 
DISP=( MOD, PASS), 
UNIT=SYSSQ, 
SPACE=(80, (250,100)) 

UNIT=SYSSQ, 
SPACE=(80, (250,250)), 

SEP= SYSPRINT 

UNIT=SYSDA, 

SPACE=(1024, (60,60), , 

CONTIG), 

SEP= (SYSUT3, SYSPRINT, 

SYSLIN) 

PGM=IEWL, 
PARM=*XREF,LIST' , 
C0ND=(9,LT,PL1L) , 
REGION=96K 

DSNAME=SYS1 . PL1LIB , 
DISP=SHR 

DSNAME=SSGOSET(GO) , 
DISP=( MOD, PASS), 
UNIT=SYSDA, 

SPACE=(102U, (5 0,20,1), 
RLSE) 

UNIT=SYSDA, 

SEP= (SYSLMOD, SYSLIB) , 

SPACE=(1024, (200,20)) 

SYSOUT=A 

DSNAME=£ SLOADSET , 
DISP=( OLD, DELETE) 

DDNAME=SYSIN 

PGM=* . LKED. SYSLMOD , 
COND=( (9,LT,LKED), 
(9,LT,PL1D) 



//SYSPRINT DD SYSOUT=A 



•Figure 61. Compilation, Link-Editing, and 
Execution Cataloged Procedure 
(PL1LFCLG) 



//LKED EXEC 



//SYSLIB DD 



//SYSLMOD DD 



//SYSUT1 DD 

//SYSPRINT DD 
//SYSLIN DD 
//GO EXEC 



PGM=IEWL, 

PARM='XREF,LIST*, 

REGION=96K 

DSNAME=SYS1 . PL1LIB , 
DISP=SHR 

DSNAME=SSGOSET(GO) , 
DISP= (MOD, PASS) , 
UNIT=SYSDA, 

SPACE=(1024, (50,20,1) , 
RLSE) 

UNIT=SYSDA, 

SEP= (SYSLMOD, SYSLIB) , 

SPACE=(102 4, (200,20)) 

SYSOUT=A 

DDNAME=SYSIN 

PGM=* . LKED . SYSLMOD , 
COND=(9,LT,LKED) 



//SYSPRINT DD SYSOUT=A 



•Figure 62. Link-Editing and Execution 
Cataloged Procedure (PL1LFLG) 



OVERRIDING CATALOGED PROCEDURES 



Cataloged procedur 
EXEC and DD statements 
operating system is 
control statements and 
loged procedure for 
current job. Overridi 
that is, the parameter 
are in effect only fo 
job; the cataloged pro 
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cedures. 
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its ability to read 

to modify a cata- 

the duration of the 

ng is only temporary; 
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r the duration of the 

cedure is not perman- 

section discusses the 

ifying cataloged pro- 



Overriding Parameters in the EXEC Statement 



The PL/ I programmer can change compiler 
or linkage editor options for execution of 
a cataloged procedure, or he can state 
different conditions for bypassing a job 
step. For full details, see the publica- 
tion IBM System/360 Operating System, Job 
Control Languag e. 
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Example ; 

Assume a source program is compiled, link- 
edited, and executed using the cataloged 
procedure PL1LFCLG. Assume further that 
the compiler option SIZE and the linkage 
editor option XREF are used, that the 
linkage editor option LIST is not required, 
and that the time for execution of the load 
module is charged to account number 123. 
The following EXEC statement adds and over- 
rides parameters to the procedure: 



//STEP1 EXEC 



PL1LFCLG,PARM. PL1L= 
•SIZE=065536, 
LOAD, NOD EC KV, 
REGION. PL1L=68K, 
P ARM. LKED= f XREF* 
ACCT.GO= , 123' 



When overriding takes place, the origi- 
nal DD statement in the cataloged procedure 
is copied, and the parameters specified in 
the original DD statement are replaced by 
the corresponding parameters in the new DD 
statement. Therefore, only parameters that 
must be changed are specified in the new DD 
statement. 



If more than one DD statement is modi- 
fied, the overriding DD statements must be 
in the same order as the original DD 
statements in the cataloged procedure. Any 
DD statements that are added to the proce- 
dure must follow the overriding statements 
within the job step to which they belong. 



Note that if the COND parameter is to be 
overwritten, it must be specified as 
COND. catprocname.stepname, where catproc- 
name is the name of the cataloged proce- 
dure . 



Overriding and Adding DD Statements 



The programmer may also override and add 
parameters in DD statements. The form 
"procstep. ddname" is used for this purpose. 
The "procstep" identifies the step in the 
cataloged procedure. If "ddname" is the 
name of a DD statement present in the step, 
the parameters in the new DD statement 
override parameters in the DD statement in 
the step. 

If "ddname" is the name of a DD state- 
ment not present in the step, the new DD 
statement is added to the step. 

In any case, the modification is effec- 
tive only for the current execution of the 
cataloged procedure. 



In procedure steps, the programmer can 
catalog data sets, assign names to data 
sets, supply DCB information for data sets, 
add data sets, or specify particular 
volumes for data sets by using overriding 
DD statements. 



Note; A temporary name assigned to a data 
set should be preceded by a double amper- 
sand (£6). A single ampersand (£) denotes 
a symbolic parameter. Since the occurence 
of a single ampersand defines a symbolic 
parameter, two consective ampersands should 
be coded when a symbolic parameter is not 
being defined (e.g., a DSNAME value or a 
PARM field value). However, if a character 
string preceded by a single ampersand is 
encountered and no symbolic value has been 
assigned to it, the single ampersand is 
processed as if double ampersands had been 
coded. For further information on the use 
of single and double ampersands see the 
section on symbolic parameters in the pub- 
lication IBM System/360 Operating System: 



Job_Con trol Language. 
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APPENDIX F: DYNAMIC INVOCATION OF THE COMPILER 



The PL/I (F) compiler can be invoked by 
using one of the assembler language macro 
instructions CALL, LINK, XCTL, or ATTACH. 
If the XCTL macro is used to invoke the 
compiler, then no user options may be 
stated. The compiler will use the standard 
default, as set during system generation, 
for each option. 

If the compiler is invoked by CALL, 
LINK, or ATTACH, the user may supply: 

The compiler options 

The ddnames of the data sets to be used 
during processing 

The first page number to be used on the 
output listing 



r t t- 

| Name | Operation! 



Operand 



| [symbol] 


| CALL 


| IEMAA, ( [optionlist] | 

| [, [ddnamelist] | 

| [ ,pagenbr] ] ) , VL j 
i 


j [symbol] 


| LINK 
| ATTACH 


1 I 
|EP=IEMAA, j 
|PARAM=( [optionlist] | 
j [ , [ddnamelist] j 
j [ ,pagenbr] ] ) , VL=1 | 



EP - specifies the symbolic name of the 
compiler. The entry point at which 
execution is to begin is determined by 
the control program (from the library 
directory entry). 



PARAM - specifies, as a sublist 
parameters to be passed from 
lem program to the compil 
first word in the address 
list contains the address 
option list. The second word 
the address of the ddname li 
third word contains the addre 
page number parameter. If 
pagination is to be used, thi 
ter may be omitted. 



optionlist - specifies the address of a 
variable length list containing the 
options. If no list is provided, the 
position must be marked by a comma. 

The option list must begin on a half- 
word boundary. The two high- order 
bytes contain a count of the number of 
bytes in the remainder of the list. 
If no options are specified, the count 
must be zero. The option list is free 



form with each field separated by a 
comma. No blanks or zeros should 
appear in the list. 



ddnamelist - specifies the address of a 
variable length list containing 
alternate ddnames for the data sets 
used during compiler processing. If 
standard ddnames are used and the page 
number operand is not used, then this 
operand may be omitted. If it is 
omitted and the page number operand is 
specified, a comma must be included to 
represent the omission. If the page 
number operand is specified, the 
address must be written whether or not 
standard ddnames are used. 

The ddname list must begin on a half- 
word boundary. The two high-order 
bytes contain a count of the number of 
bytes in the remainder of the list. 
If no ddnames are specified but the 
page number operand is used, then the 
count must be zero. Each name of less 
than eight bytes must be left- 
justified and padded with blanks. If 
an alternate ddname is omitted, the 
standard name will be assumed. If the 
name is omitted within the list, the 
8-byte entry must contain binary 
zeros. Names can be omitted from the 
end merely by shortening the list. 
The sequence of the 8-byte entries in 
the ddname list is as follows: 



Entry Alternate Name for ; 



, address 


1 


SYSLIN 


the prob- 


2 


not applicable 


er. The 


3 


not applicable 


parameter 


4 


SYSLIB 


of the 


5 


SYS IN 


contains 


6 


SYSPRINT 


st. The 


7 


SYSPUNCH 


ss of the 


8 


SYSUT1 


standard 


9 


not applicable 


s parame- 


10 


SYSUT3 



pagenbr - specifies the address of a 6-byte 
fixed length list containing a number 
to be used as the initial page number 
on the output listing of the compiler. 
If standard pagination is to be used, 
then this operand may be omitted. 

The page number list must begin on a 
ha If word boundary, the half word 
containing the value four, followed by 
four bytes containing the page number 
in binary. 
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VL - specifies that the sign bit is to be 
set to 1 in the last word of the 
address parameter list. 
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APPENDIX G : DIAGNOSTIC MESSAGES 



SOURCE PROGRAM DIAGNOSTIC MESSAGES 



All source program diagnostic messages 
produced are written in a group following 
the source program listing and any other 
listings specified as a parameter on the 
EXEC statement card. 

Each message number is of the form 
IEMnnnnl, where the code IEM indicates the 
PL/I (F) Compiler, and nnnn the number of 
the message. The letter I is a system 
standard action code indicating an informa- 
tive message for the programmer. 

There are four types of diagnostic mes- 
sage: warning, error, severe error, and 
terminal error. 

A Warning is a message that calls atten- 
tion to a possible error, although the 
statement to which it refers is syntacti- 
cally valid. In addition to alerting the 
programmer, it may assist him in writing 
more efficient programs in the future. 

An Error message describes an attempt to 
correct an erroneous statement; the pro- 
grammer is informed of the correction. 
Errors do not normally terminate processing 
of the text. 

A Severe error message indicates an 
error which cannot be corrected by the 
compiler. The incorrect section of the 
program is deleted, but compilation is 
continued. Where reasonable, the ERROR 
condition will be raised at object time, if 
execution of an incorrect source statement 
is attempted. If a severe error occurs 
during compile-time processing, compilation 
will be terminated after the SOURCE listing 
has been produced. 

A Terminal error message describes an 
error which, when discovered, forces the 
termination of the compilation. 

The choice of the severity level at and 
above which diagnostic messages appear on 
the output is an option which may be 
selected by the programmer. FLAGW is 
assumed if no level is specified. 

In the list of diagnostic messages 
below, the abbreviations W, E, S, and T, 
respectively, are used to indicate the 
severity of the message, and appear immedi- 
ately before the number of the message. 
They do not appear in this way in the 
compiler output listings; instead, the mes- 



sages are printed in separate groups 
according to severity* 

In the following text, messages are 
followed where necessary by an explanation, 
a description of the action taken by the 
system, and the response required from the 
user. "Explanation" and "System Action" 
are given only when this information is not 
contained in the text of the message. When 
no "User Response" is stated explicitly, 
the user should assume that he must correct 
the error in his source program unless the 
action taken by the system makes it unne- 
cessary for him to do so. However, even 
when system action successfully corrects an 
error, the user should remember that if he 
subsequently recompiles the same program, 
he will get the same diagnostic message 
again unless he has corrected the source 
error. 

E IEM0002I INVALID PREFIX OPERATOR IN 
STATEMENT NUMBER xxx. REPLACED 
BY PLUS. 



E IEM000 3I 



E IEM0004I 



E IEM0005I 



E IEM0006I 



S IEM0007I 



E IEM0008I 



W IEM0009I 



E IEM0010I 



RIGHT PARENTHESIS INSERTED 
STATEMENT NUMBER XXX 



IN 



OPERATOR .NOT. IN STATEMENT 

NUMBER XXX USED AS AN INFIX 

OPERATOR. IT HAS BEEN REPLACED 
BY .NE. 

RIGHT PARENTHESIS INSERTED 
AFTER SINGLE PARENTHESIZED 
EXPRESSION IN STATEMENT NUMBER 
XXX 

RIGHT PARENTHESIS INSERTED AT 
END OF SUBSCRIPT, ARGUMENT OR 
CHECK LIST IN STATEMENT NUMBER 
xxx 

IDENTIFIER MISSING IN STATEMENT 
NUMBER XXX . A DUMMY IDENTIFI- 
ER HAS BEEN INSERTED. 

RIGHT PARENTHESIS INSERTED AT 
END OF CALL ARGUMENT LIST OR 
OTHER EXPRESSION LIST IN STATE- 
MENT NUMBER XXX 

A LETTER IMMEDIATELY FOLLOWS 
CONSTANT IN STATEMENT NUMBER 
xxx. AN INTERVENING BLANK IS 
ASSUMED . 

IMPLEMENTATION RESTRICTION. 

identifier yyyy in or near 

STATEMENT NUMBER XXX IS TOO 
LONG AND HAS BEEN SHORTENED. 
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Explanation ; Implementation 

restriction. Identifiers may 

not exceed 31 characters in E IEM0024I 

length. 

System Action : Identifier has 

been shortened by concatenating E IEM002 5I 

first 16 characters with last 

15. 

W IEM0011I CONSTANT IMMEDIATELY FOLLOWS 

IDENTIFIER IN STATEMENT NUMBER E IEM0026I 

xxx. AN INTERVENING BLANK IS 

ASSUMED. 

E IEM0012I EXPONENT MISSING IN FLOATING- 
POINT CONSTANT BEGINNING yyyy E IEM0027I 
IN STATEMENT NUMBER xxx . ZERO 
HAS BEEN INSERTED. 

E IEM0013I INTEGER yyyy TOO LONG IN 

STATEMENT NUMBER xxx . IT HAS S IEM002 8I 
BEEN TRUNCATED ON THE RIGHT. 

E IEM0014I EXPONENT TOO LONG IN FLOATING- 
POINT CONSTANT BEGINNING yyyy 
IN STATEMENT NUMBER xxx . IT S IEM0029I 
HAS BEEN TRUNCATED. 

E IEM0015I SOLITARY DECIMAL POINT FOUND IN 
OPERAND POSITION IN STATEMENT 
NUMBER xxx . A FIXED- POINT S IEM00 30I 
ZERO HAS BEEN INSERTED. 

E IEM0016I FLOATING-POINT CONSTANT 

BEGINNING yyyy IN STATEMENT 
NUMBER XXX IS TOO LONG AND HAS 
BEEN TRUNCATED ON THE RIGHT. 

E IEM0017I ZERO INSERTED IN FLOATING-POINT 

CONSTANT BEGINNING .E IN STATE- S IEM0031I 
MENT NUMBER XXX 

E IEM0018I ZERO INSERTED IN PENCE FIELD OF 
STERLING CONSTANT BEGINNING 
yyyy IN STATEMENT NUMBER xxx 

E IEM0019I POUNDS FIELD IN STERLING CON- 
STANT BEGINNING yyyy IN STATE- 
MENT NUMBER xxx IS TOO LONG AND 
HAS BEEN TRUNCATED. 

E IEM0020I ZERO INSERTED IN POUNDS FIELD 
OF STERLING CONSTANT BEGINNING 
yyyy IN STATEMENT NUMBER xxx 

E IEM0021I DECIMAL POINT IN EXPONENT FIELD 
OF CONSTANT BEGINNING yyyy IN 
STATEMENT NUMBER xxx . FIELD 
TRUNCATED AT DECIMAL POINT. 

E IEM0022I DECIMAL PENCE TRUNCATED IN 
STERLING CONSTANT BEGINNING 
yyyy STATEMENT NUMBER xxx E IEM00 33I 

E IEM0023I LETTER L MISSING FROM STERLING 
CONSTANT BEGINNING yyyy IN 
STATEMENT NUMBER xxx 



T IEM0032I 



System Action : None 

SHILLINGS FIELD TRUNCATED IN 
STERLING CONSTANT BEGINNING 
yyyy IN STATEMENT NUMBER xxx 

ZERO INSERTED IN SHILLINGS 

FIELD OF STERLING CONSTANT 

BEGINNING yyyy IN STATEMENT 
NUMBER XXX 

ILLEGAL CHARACTER IN APPARENT 

bit string yyyy in statement 

NUMBER xxx . STRING TREATED AS 
A CHARACTER STRING. 

FIXED-POINT CONSTANT BEGINNING 
yyyy IN STATEMENT NUMBER xxx 
HAS BEEN TRUNCATED ON THE 
RIGHT. 

LABEL REFERENCED ON END STATE- 
MENT NUMBER xxx CANNOT BE 
FOUND. END TREATED AS HAVING 
NO OPERAND. 

INVALID CHARACTER IN BINARY 
CONSTANT IN STATEMENT NUMBER 
XXX . CONSTANT TREATED AS 
DECIMAL CONSTANT. 

POINTER QUALIFIER FOLLOWS EITH- 
ER A SUBSCRIPT OR ANOTHER POIN- 
TER QUALIFIER IN STATEMENT NUM- 
BER XXX. 

System Action : As stated in a 
further message referring to 
the same statement. 

OPERAND MISSING IN OR FOLLOWING 
STATEMENT NUMBER xxx . DUMMY 
OPERAND INSERTED. 

Explana tion : Something invalid 
has been found in an expres- 
sion, or where an expression 
was expected but not found. In 
order that further diagnosis 
can be made, the compiler has 
inserted a dummy operand. This 
may cause further error messa- 
ges to appear for this state- 
ment. 

IMPLEMENTATION RESTRICTION. 
STATEMENT NUMBER XXX IS TOO 
LONG. COMPILATION TERMINATED 
AT THIS POINT. 



User 



Response: 



Subdivide 



statement and recompile 

AN INVALID PICTURE CHARACTER 
IMMEDIATELY FOLLOWS TEXT yyyy 
IN STATEMENT NUMBER xxx. THE 
PICTURE HAS BEEN TRUNCATED AT 
THIS POINT. 
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W IEM003UI 



E IEM0 035I 



E IEM0037I 



E IEM0038I 



E IEM0039I 



E IEM0040I 



S IEM0043I 



E IEM0044I 



E IEM0045I 



E IEM0046I 



E IEM0048I 



A LETTER IMMEDIATELY FOLLOWS A 
CONSTANT AT nnnn SEPARATE 
POSITION (S) IN STATEMENT NUMBER 
XXX. AN INTERVENING BLANK HAS 
BEEN ASSUMED IN EACH CASE. 



User Response : Check that the 
system action will have the 
required effect 



LETTER F IS NOT FOLLOWED BY 
LEFT PARENTHESIS IN PICTURE IN 
STATEMENT NUMBER xxx. ONE HAS 
BEEN INSERTED. 

ZERO INSERTED IN SCALING FACTOR 
IN PICTURE yyyy IN STATEMENT 
NUMBER XXX 

RIGHT PARENTHESIS INSERTED 
AFTER SCALING OR REPLICATION 

factor in picture yyyy IN 

STATEMENT NUMBER xxx 

NO CHARACTER FOLLOWS REPLICA- 
TION FACTOR IN PICTURE yyyy IN 
STATEMENT NUMBER XXX. THE PIC- 
TURE HAS BEEN TRUNCATED AT THE 
LEFT PARENTHESIS OF THE REPLI- 
CATION FACTOR. 

A REPLICATION FACTOR OF 1 HAS 
BEEN INSERTED IN PICTURE yyyy 
IN STATEMENT NUMBER xxx 



E IEM0049I 



RIGHT PARENTHESIS INSERTED 
STATEMENT NUMBER XXX 



IN 



Explanation ; Right parenthesis 
missing from length attached to 
character or bit string. 

IN STATEMENT NUMBER XXX PRECI- 
SION NOT AN INTEGER 

Expl a nation : Precision should 
be an unsigned integer 

System Action : The action 
taken depends on whether the 
precision is found in a DECLARE 
statement or a PROCEDURE state- 
ment. A further message will 
be produced. 

ZERO INSERTED IN FIXED PRECI- 
SION SPECIFICATION IN STATEMENT 
NUMBER xxx 

RIGHT PARENTHESIS INSERTED 
AFTER PRECISION SPECIFICATION 
IN STATEMENT NUMBER xxx 

RIGHT PARENTHESIS INSERTED IN 
FILE NAME LIST IN STATEMENT 
NUMBER XXX 



S IEM0050I 



W IEM0051I 



S IEM005 2I 



W IEM0053I 

S IEM0054I 
W IEM0055I 

E IEM0056I 



E IEM0057I 



THE COMMENT FOLLOWING THE LOGI- 
CAL END OF PROGRAM HAS NOT BEEN 
TERMINATED . 

Explanation : A /* was found 
following the logical end of 
the program and was interpreted 
as the start of a comment, but 
end-of-file was reached before 
the comment was terminated. 

System Action : All text fol- 
lowing the /* is read as a 
comirent. 

User Response : Check if this 
is a delimiter in the wrong 
column of the record. 

INVALID STATEMENT LABEL CON- 
STANT IN LABEL ATTRIBUTE IN 
STATEMENT NUMBER xxx. THE 
STATEMENT LABEL CONSTANT LIST 
HAS BEEN DELETED. 

MISSING RIGHT PARENTHESIS 
INSERTED FOLLOWING STATEMENT 
LABEL CONSTANT IN LABEL ATTRI- 
BUTE IN STATEMENT NUMBER xxx 

INVALID ATTRIBUTE IN RETURNS 
ATTRIBUTE LIST IN STATEMENT 
NUMBER XXX. THE INVALID ATTRI- 
BUTE HAS BEEN DELETED FROM THE 
LIST. 

SURPLUS COMMA HAS BEEN FOUND IN 
DECLARE OR ALLOCATE STATEMENT 
NUMBER XXX. THIS COMMA HAS 
BEEN DELETED. 

ILLEGAL FORM OF CALL STATEMENT. 
STATEMENT NUMBER xxx DELETED. 



LABEL OR 
STATEMENT 
IGNORED. 



LABELS ON DECLARE 
NUMBER xxx HAVE BEEN 



E IEM0058I 



NULL PICTURE FORMAT ITEM IN 
STATEMENT NUMBER XXX. THE 
CHARACTER 9 HAS BEEN INSERTED 
IN THE PICTURE. 

Explanation : The null picture 
may be the result of the com- 
piler truncating an invalid 
picture. 

INVALID CHARACTER FOLLOWING 
ITERATION FACTOR IN PICTURE 

beginning yyyy in statement 

NUMBER xxx. THE PICTURE HAS 
BEEN TRUNCATED AT THE LEFT 
PARENTHESIS OF THE ITERATION 
FACTOR. 

ITERATION FACTOR IN PICTURE 
BEGINNING yyyy NOT AN UNSIGNED 
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E IEM0059I 



E IEM0060I 



E IEM0061I 



W IEM0062I 



E IEM0063I 



S IEM0064I 



S IEM0066I 



E IEM0067I 



T IEM0069I 



INTEGER IN STATEMENT NUMBER 
XXX. THE PICTURE HAS BEEN 
TRUNCATED AT THE LEFT PARENTHE- 
SIS OF THE ITERATION FACTOR. 



MISSING RIGHT PARENTHESIS 
INSERTED IN POSITION ATTRIBUTE 
IN, STATEMENT NUMBER xxx. 

POSITION MISSING IN POSITION 
ATTRIBUTE IN STATEMENT NUMBER 
xxx. POSITION OF 1 INSERTED. 

MISSING LEFT PARENTHESIS 
INSERTED IN POSITION ATTRIBUTE- 
IN STATEMENT NUMBER xxx. 

THE ATTRIBUTE 'PACKED' IN DEC- 
LARATION STATEMENT NUMBER XXX 
IS NOW OBSOLETE, AND HAS BEEN 
IGNORED . 

Explan ation : PACKED has been 
removed from the language; the 
complementary attribute to 
ALIGNED is now UNALIGNED. 

System Action ; Since PACKED 
applied only to arrays and 
major structures, the new 
alignment defaults will be com- 
patible wj.th those of earlier 
versions of the compiler, 
except for bit string arrays 
that are not members of struc- 
tures. 

User Response ; Correct source, 
and recompile if necessary. 

MISSING LEFT PARENTHESIS 
INSERTED IN RETURNS STATEMENT 
NUMBER xxx. 

ILLEGAL STATEMENT FOLLOWS THE 
THEN IN STATEMENT NUMBER XXX. 
SEMICOLON HAS BEEN INSERTED 
AFTER THE THEN. 

TEXT BEGINNING yyyy IN STATE- 
MENT NUMBER xxx HAS BEEN DELET- 
ED. 

Explanation ; The source error 
is detailed in another message 
referring to the same state- 
ment. 

EQUAL SYMBOL HAS BEEN INSERTED 
IN DO STATEMENT NUMBER XXX 



IMPLEMENTATION 
SOURCE PROGRAM 
MANY BLOCKS. 



RESTRICTION. 
CONTAINS TOO 



T IEM0070I 



T IEM0071I 



S IEM0072I 
E IEM0074I 
S IEM0075I 
S IEM0076I 
S IEM00 77I 
E IEM0078I 



E IEM0080I 



S IEM0081I 



User Response ; Rewrite program 
with fewer blocks, or divide 
into more than one separate 
compilation. 

BEGIN STATEMENT NUMBER xxx IS 
NESTED BEYOND THE PERMITTED 
LEVEL. COMPILATION TERMINATED. 

User Response ; Reduce level of 
nesting of blocks to 50 or 
less. 

TOO MANY PROCEDURE, BEGIN, 
ITERATIVE DO, ON STATEMENTS IN 
THIS PROGRAM. COMPILATION TER- 
MINATED. 

Explanation : There is an 
implementation restriction on 
the number of blocks in a com- 
pilation. Refer to Appendix B 
of this publication for 
details. 

User Response : Subdivide pro- 
gran into two or more compila- 
tions. 

DO STATEMENT NUMBER xxx 
REPLACED BY BEGIN STATEMENT. 

THEN INSERTED Itf IF STATEMENT 
NUMBER XXX 

NO STATEMENT FOLLOWS THEN IN IF 
STATEMENT NUMBER xxx 

NO STATEMENT FOLLOWS ELSE IN OR 
FOLLOWING STATEMENT NUMBER XXX 



ELSE DELETED IN OR 
STATEMENT NUMBER XXX 



FOLLOWING 



System Action ; Compilation is 
terminated 



IMPLEMENTATION RESTRICTION. 
TOO MANY CHARACTERS IN INITIAL 
LABEL ON STATEMENT NUMBER xxx. 
LABEL IGNORED. 

Explanation : There is an 
implementation restriction on 
the number of characters in the 
subscript of a subscripted 
identifier. The maximum per- 
missible number is 225. 

EQUAL SYMBOL HAS BEEN INSERTED 
IN ASSIGNMENT STATEMENT NUMBER 
XXX 

LABELS OR PREFIX OPTIONS BEFORE 
ELSE TRANSFERRED TO STATEMENT 
NUMBER XXX 

Explanation : Labels or prefix 
options illegal before ELSE and 
therefore transferred to fol- 
lowing statement. 
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S IEM0082I OPERAND MISSING IN CHECK LIST 
IN STATEMENT NUMBER xxx. DUMMY 
INSERTED . 



System Action ; The END state- 
ment is ignored 



S IEM008 3I ON-CONDITION INVALID OR MISSING 
IN STATEMENT NUMBER XXX. ON 
ERROR HAS BEEN ASSUMED. 



S IEM0100I END OF FILE FOUND IN OR AFTER 
STATEMENT NUMBER XXX, BEFORE 
THE LOGICAL END OF PROGRAM. 



System Action : 



ON 



ERROR 



inserted in 
condition 



place of invalid 



E IEM0084I THE I/O ON-CONDITION IN STATE- 
MENT NUMBER xxx HAS NO FILENAME 
FOLLOWING IT. SYSIN IS 
ASSUMED. 



System Action ; If the state- 
ment is incomplete, it is del- 
eted. Whether or not the 
statement is incomplete, the 
required number of END state- 
ments are added to the program 
so that compilation can con- 
tinue. 



E IEM0085I COLON MISSING AFTER PREFIX 
OPTION IN OR FOLLOWING STATE- 
MENT NUMBER xxx. ONE HAS BEEN 
ASSUMED. 

T IEM0090I THERE ARE NO COMPLETE STATE- 
MENTS IN THIS PROGRAM.. COMPI- 
LATION TERMINATED. 



User Response ; Correct the 
source code. Possible causes 
of this error include: 

1. Unmatched quote marks 

2. Insufficient END state- 
ments 



W IEM0094I RECORD IN OR FOLLOWING STATE- 
MENT NUMBER xxx IS SHORTER THAN 
THE SPECIFIED SOURCE START. 
THE OUTPUT RECORD HAS BEEN 
MARKED WITH AN ASTERISK AND 
IGNORED. 



S IEM0101I 



3. Omission of final semico- 
lon. 

PARAMETER MISSING IN STATEMENT 
NUMBER XXX . A DUMMY HAS BEEN 
INSERTED. 



E IEM0095I 



E IEM0096I 



E IEM0097I 



S IEM0099I 



LABEL ON STATEMENT NUMBER XXX 
HAS NO COLON. ONE IS ASSUMED. 

Explanation : The compiler has 
encountered an identifier which 
appears to be a statement 
label, but without a colon. 



S ystem Action : 
inserted 



A colon 



is 



SEMI-COLON NOT FOUND WHEN 
EXPECTED IN STATEMENT NUMBER 
xxx . ONE HAS BEEN INSERTED. 

INVALID CHARACTER HAS BEEN 
REPLACED BY BLANK IN OR FOLLOW- 
ING STATEMENT NUMBER xxx. THE 
CONTAINING OUTPUT RECORD IS 
MARKED BY AN ASTERISK. 

LOGICAL END OF PROGRAM OCCURS 
AT STATEMENT NUMBER XXX. THIS 
STATEMENT HAS BEEN IGNORED SO 
THAT SUBSEQUENT STATEMENTS MAY 
BE PROCESSED. 

Explanation : Although the com- 
piler has detected the end of 
the program, there is more text 
following it. The programmer 
appears to have made an error 
in matching END statements with 
PROCEDURE, BEGIN, DO or ON 
statements. 



S IEM0102I 



S IEM0103I 



S IEM0104I 



S IEM0105I 



T IEM0106I 



T IEM0107I 



LABEL MISSING FROM PROCEDURE 
STATEMENT NUMBER xxx. A DUMMY 
LABEL HAS BEEN INSERTED. 

LABEL MISSING FROM ENTRY STATE- 
MENT NUMBER xxx 

ILLEGAL STATEMENT FOLLOWS ELSE 
IN STATEMENT NUMBER XXX 



System Action ; 
inserted 



Null statement 



ILLEGAL STATEMENT FOLLOWS ON IN 
STATEMENT NUMBER xxx 

System A ction: Null statement 
inserted 

IMPLEMENTATION RESTRICTION. 
SOURCE PROGRAM CONTAINS TOO 
MANY BLOCKS. 

System Action ; Compilation is 
terminated 

User Response : Rewrite program 
with fewer blocks, or divide 
into more than one separate 
compilation. 

IMPLEMENTATION RESTRICTION. 
STATEMENT NUMBER XXX IS TOO 
LONG. THIS STATEMENT MAY CON- 
TAIN UNMATCHED QUOTE MARKS. 
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user 



Response : 



Subdivide 



statement and recompile 

S IEM010 8I ENTRY STATEMENT NUMBER XXX IN 
AN ITERATIVE DO GROUP HAS BEEN 
DELETED. 



S IEM0132I DUMMY OPERAND INSERTED 
STATEMENT NUMBER XXX 



S IEM0133I 



RIGHT PARENTHESIS INSERTED 
STATEMENT NUMBER XXX 



IN 



IN 



S IEM0109I TEXT BEGINNING yyyy IN OR FOL- 
LOWING STATEMENT NUMBER XXX HAS 
BEEN DELETED. 

Explanation : The source error 
is detailed in another message 
referring to the same state- 
ment . 

S IEM0110I TEXT BEGINNING yyyy IN OR FOL- 
LOWING STATEMENT NUMBER XXX HAS 
BEEN DELETED. 

Expl anation : The source error 

is detailed in another message 

referring to the same state- 
ment. 

S IEM0111I FIRST STATEMENT NOT A PROCEDURE 
STATEMENT. A DUMMY PROCEDURE 
STATEMENT HAS BEEN INSERTED. 

S IEM0112I ENTRY STATEMENT NUMBER XXX IN 
BEGIN BLOCK HAS BEEN DELETED. 



S IEM013 4I IMPLEMENTATION RESTRICTION. 
TOO MANY LEVELS OF REPLICATION 
IN INITIAL ATTRIBUTE IN STATE- 
MENT NUMBER xxx. THE ATTRIBUTE 
HAS BEEN DELETED. 

Explanatio n: The implementa- 
tion restriction on levels of 
nesting has been contravened. 
For details, refer to Appendix 
B of this publication. 

User Resp o nse : Rewrite INITIAL 
attribute with lower level of 
rep lication 

E IEM013 6I 'IN' CLAUSE IN STATEMENT NUMBER 
xxx HAS NO ASSOCIATED "SET' 
CLAUSE. 

Explan ation: An IN clause must 
be accompanied by a SET clause 
in the same statement. 



S IEM0113I 



RIGHT PARENTHESIS INSERTED 
STATEMENT NUMBER XXX 



IN 



Sys tem Action : 
is ignored r " 



The IN clause 



E IEM0114I 



E IEM0115I 



E IEM0116I 



S IEM0118I 



S IEM0128I 



S IEM0129I 



E IEM0130I 



S IEM0131I 



Explanation : Parenthesized 
list in ON statement is either 
not closed or contains an error 
and has been truncated. 

RIGHT PARENTHESIS INSERTED IN 
PREFIX OPTION IN OR FOLLOWING 
STATEMENT NUMBER XXX 

LEFT PARENTHESIS INSERTED AFTER 
WHILE IN STATEMENT NUMBER XXX 

PREFIX OPTION FOLLOWS LABEL IN 
STATEMENT NUMBER xxx. PREFIX 
OPTION IS IGNORED. 

OFFSET ATTRIBUTE NOT FOLLOWED 
BY PARENTHESIZED BASED VARIABLE 
IN STATEMENT NUMBER XXX. THE 
ATTRIBUTE IS IGNORED. 

LENGTH OF BIT OR CHARACTER 
STRING MISSING IN STATEMENT 
NUMBER XXX. LENGTH 1 INSERTED. 



INVALID WAIT 
XXX DELETED. 



STATEMENT NUMBER 



OPERAND MISSING. COMMA DELETED 
IN WAIT STATEMENT NUMBER XXX 

RIGHT PARENTHESIS INSERTED IN 
STATEMENT NUMBER XXX 



E IEM0138I SOLITARY I FOUND WHERE A CON- 
STANT IS EXPECTED IN INITIAL 
ATTRIBUTE IN STATEMENT NUMBER 
xxx. FIXED DECIMAL IMAGINARY 
II HAS BEEN ASSUMED. 

Explanation : The programmer 
has initialized an element 
using the variable I where the 
constant II was expected. 

System Ac tion: II is assumed 

S IEM013 9I TEXT IMMEDIATELY FOLLOWING yyyy 
IN INITIAL ATTRIBUTE IS ILLE- 
GAL. INITIAL ATTRIBUTE DELETED 
IN STATEMENT NUMBER XXX 

Explanatio n: A language fea- 
ture has been used that is not 
supported by this version of 
the compiler. For details, 
refer to Appendix H of this 
publication. Although the mes- 
sage states that the error fol- 
lows the quoted text, the quot- 
ed text may itself be invalid, 
and the compiler may have 
attempted to correct the source 
error. In this case, there 
will usually be another diag- 
nostic message associated with 
the statement. 
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W IEM0140I 



NO IDENTIFIER APPEARS IN 
DECLARE STATEMENT NUMBER XXX 



referring to 
ment. 



the same state- 



S IEM0142I 



S IEM0143I 



S IEM01PI 



System Action : The statement 
is ignored 

RIGHT PARENTHESIS INSERTED IN 
STATEMENT NUMBER XXX 



E IEM0153I 



RIGHT PARENTHESIS INSERTED 
STATEMENT NUMBER xxx 



IN 



S IEM0145I 



S IEM0146I 



S IEM0147I 



RETURNS ATTRIBUTE IS NOT FOL- 
LOWED BY A DATA DESCRIPTION IN 
STATEMENT NUMBER xxx. THE 
RETURNS ATTRIBUTE HAS BEEN DEL- 
ETED . 

DUMMY IDENTIFIER INSERTED IN 
GENERIC ATTRIBUTE LIST IN 
STATEMENT NUMBER XXX 

RIGHT PARENTHESIS INSERTED IN 
STATEMENT NUMBER XXX 

THE USE OF REFER IN STATEMENT 
NUMBER xxx IS EITHER INVALID OR 
IS NOT IMPLEMENTED IN THIS 
RELEASE 

Explanation : The implementa- 
tion of the REFER option is 
restricted; see Appendix H, 
'Language features Not 
Supported' . 



System Action: 



Ignore the 
A further mes- 



REFER clause, 
sage identifying the invalid 
text will usually accompany 
this message. 



E IEM0148I 



LEFT PARENTHESIS MISSING 
STATEMENT NUMBER xxx 



IN 



E IEM0149I 



E IEM0150I 



S IEM0151I 
S IEM0152I 



System Action : See further 
messages relating to this 
statement 

COMMA HAS BEEN DELETED FROM 
LIST IN STATEMENT NUMBER XXX 

STATEMENT NUMBER XXX IS AN 
INVALID FREE STATEMENT. THE 
STATEMENT HAS BEEN DELETED. 

Explanation : The format of the 
statement is invalid 

SEMI-COLON INSERTED IN STATE- 
MENT NUMBER XXX 

TEXT BEGINNING yyyy IN STATE- 
MENT NUMBER xxx HAS BEEN DELET- 
ED. 

Explanation : The source error 
is detailed in another message 



S IEM0154I 



E IEM0158I 



E IEM0159I 



S IEM0163I 



E IEM0164I 



S IEM0166I 



E IEM0172I 



E IEM018 0I 



E IEM0181I 



THE ATTRIBUTED BASED HAS BEEN 
ASSUMED IN STATEMENT NUMBER xxx 
WHERE CONTROLLED WAS SPECIFIED. 

Explanation : The PL/I feature 
CONTROLLED (pointer) has been 
changed to BASED (pointer). 

IMPLEMENTATION RESTRICTION IN 
STATEMENT NUMBER XXX. BASED 
MUSI BE FOLLOWED BY AN IDEN- 
TIFIER IN PARENTHESIS. 

System A c tion : Text is delet- 
ed. See further error message 
for this statement. 

User Response : Correct source 
statement 

ZERO STRUCTURE LEVEL NUMBER 
DELETED IN DECLARE STATEMENT 
NUMBER XXX 

Explanation : Zero level number 
not allowed 

SIGN DELETED PRECEDING STRUC- 
TURE LEVEL NUMBER IN DECLARE 
STATEMENT NUMBER xxx 

Explanation : The level number 
must be an unsigned integer 

FORMAT LIST MISSING, (A) 
INSERTED IN STATEMENT NUMBER 
XXX 



MISSING 

INSERTED 

XXX 



RIGHT PARENTHESIS 
IN STATEMENT NUMBER 



OPERAND MISSING IN GO TO STATE- 
MENT NUMBER XXX. DUMMY IS 
INSERTED. 



LEFT PARENTHESIS INSERTED 
DELAY STATEMENT NUMBER xxx 



IN 



Explanation : The expression in 
a DELAY statement should be 
contained in parentheses 

EQUAL SYMBOL HAS BEEN INSERTED 
IN DO SPECIFICATIONS IN STATE- 
MENT NUMBER XXX 

SEMICOLON INSERTED IN STATEMENT 
NUMBER xxx 

Explanation : An error has been 
discovered. A semi-colon is 
therefore inserted and the rest 
of the statement is skipped. 
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S IEM0182I 



S IEM0185I 

S IEM0187I 
S IEM0191I 
E IEM0193I 

E IEM019UI 

S IEM0195I 

S IEM0198I 

S IEM0202I 



E IEM0207I 



E IEM0208I 



T IEM0209I 



TEXT BEGINNING yyyy SKIPPED IN 
OR FOLLOWING STATEMENT NUMBER 

XXX 

Explanation : The source error 
is detailed in another message 
referring to the same state- 
ment. 

OPTION IN GET/ PUT STATEMENT 
NUMBER xxx IS INVALID AND HAS 
BEEN DELETED. 

DATA LIST MISSING IN STATEMENT 
NUMBER xxx. OPTION DELETED. 

DUMMY OPERAND INSERTED IN DATA 
LIST IN STATEMENT NUMBER xxx 

RIGHT PARENTHESIS INSERTED IN 
DATA LIST IN STATEMENT NUMBER 
xxx 

MISSING RIGHT PARENTHESIS 
INSERTED IN FORMAT LIST IN 
STATEMENT NUMBER xxx 

INVALID FORMAT LIST DELETED IN 
STATEMENT NUMBER xxx. (A) 
INSERTED . 

COMPLEX FORMAT ITEM yyyy IN 
STATEMENT NUMBER XXX IS INVALID 
AND HAS BEEN DELETED. 

DEFERRED FEATURE. STATEMENT 
NUMBER XXX NOT IMPLEMENTED IN 
THIS VERSION. 

Explanation : The statement 
referred to is of a type not 
supported by this version of 
the compiler. For details, 
refer to Appendix H of this 
publication. 



System Actio n: 
continues 



User Response : Rewrite source 
program avoiding use of unsup- 
ported feature 

COMMA REPLACED BY EQUAL SYMBOL 
IN ASSIGNMENT STATEMENT NUMBER 

XXX 

LEFT PARENTHESIS INSERTED IN 
CHECK LIST IN STATEMENT NUMBER 

XXX 



IMPLEMENTATION 
STATEMENT NUMBER 
COMPLEX 



RESTRICTION. 
xxx IS TOO 



Explanation : The level of 
nesting exceeds the implementa- 
tion restriction. Refer to 



E IEM0211I 
E IEM0212I 



E IEM0213I 



E IEM0214I 



E IEM0216I 
E IEM0217I 
S IEM0220I 



Compilation S IEM02 21I 



S IEM0222I 



S IEM022 3I 



Appendix B of this publication 
for details. 



System Action : Terminates com- 
pilation 



User Response : Divide state- 
ment into two or more state- 
ments 



LEFT PARENTHESIS INSERTED 
STATEMENT NUMBER xxx 



IN 



MULTIPLE TASK OPTIONS SPECIFIED 
IN STATEMENT NUMBER xxx. THE 
FIRST ONE IS USED. 

System Action : Ignores options 
other than the first 

MULTIPLE EVENT OPTIONS SPECI- 
FIED IN STATEMENT NUMBER xxx. 
THE FIRST ONE IS USED. 

System Action : Ignores options 
other than the first 

MULTIPLE PRIORITY OPTIONS SPEC- 
IFIED IN STATEMENT NUMBER xxx. 
THE FIRST ONE IS USED. 

System Action : Ignores options 
other than the first 

INVALID EVENT OPTION IGNORED IN 
STATEMENT NUMBER xxx 

INVALID PRIORITY OPTION IGNORED 
IN STATEMENT NUMBER xxx 

IDENTIFIER MISSING OR INCORRECT 
AFTER OPTION IN STATEMENT NUM- 
BER XXX. OPTION DELETED. 

NUMBER OF LINES NOT GIVEN AFTER 
LINE OPTION IN STATEMENT NUMBER 
XXX. (1) INSERTED. 

DEFERRED FEATURE. THE IDENT 
OPTION ON OPEN/ CLOSE STATEMENT 
NUMBER xxx IS NOT IMPLEMENTED 
BY THIS VERSION. 

Explanatio n: A language fea- 
ture has been used that is not 
supported by this version of 
the compiler. Refer to Appen- 
dix H of this publication for 
details. 

System Action : Option ignored 

EXPRESSION MISSING AFTER 
IDENT/TITLE/LINESI ZE/PAGESIZE 
OPTION IN STATEMENT NUMBER XXX. 
OPTION DELETED. 
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Explanation : No left parenthe- 
sis found following keyword 



S IEM0 224I INVALID OPTION DELETED IN I/O 
STATEMENT NUMBER xxx 

S IEM0225I OPTION AFTER OPEN/CLOSE IN 
STATEMENT NUMBER XXX IS INVALID 
OR MISSING. 

S IEM0226I EXPRESSION MISSING AFTER FORMAT 
ITEM IN STATEMENT NUMBER XXX. 
ITEM DELETED. 

W IEM0227I NO FILE/STRING OPTION SPECIFIED 
IN ONE OR MORE GET/PUT STATE- 
MENTS. SYSIN/SYSPRINT HAS BEEN 
ASSUMED IN EACH CASE 



S IEM02 38I 



T IEM02 40I 



THE LOCATE-VARIABLE IN LOCATE 

STATEMENT NUMBER xxx IS OMITTED 

OR SUBSCRIPTED. THE STATEMENT 
HAS BEEN DELETED. 



Explanation : The omission of 
the locate variable renders the 
statement meaningless. Sub- 
scripted locate variables are 
invalid. 

System Action : Replaces inval- 
id statement with a null state- 
ment. 

COMPILER ERROR IN PHASE CV. 
SCAN CANNOT IDENTIFY DICTIONARY 
ENTRY. 



Explanation : One or more GET 
or PUT statements have appeared 
in the program with no speci- 
fied FILE option or STRING 
option. 

System Action : The compiler 
has assumed the appropriate 
default file ( SYSIN for GET, 
SYSPRINT for PUT). 

S IEM0 228I EXPRESSION MISSING AFTER OPTION 
IN STATEMENT NUMBER XXX. 
OPTION DELETED. 

S IEM0 229I FORMAT ITEM IN STATEMENT NUMBER 
xxx IS INVALID AND HAS BEEN 
DELETED. 

S IEM0230I INVALID DATA LIST IN STATEMENT 
NUMBER xxx. STATEMENT DELETED. 

E IEM0231I MISSING COMMA INSERTED IN DATA 
LIST IN STATEMENT NUMBER XXX 

Explanation : Comma missing 
between elements of a data list 

E IEM0 232I KEYWORD DO MISSING IN DATA LIST 
IN STATEMENT NUMBER XXX. DO IS 
INSERTED . 

S IEM0233I RETURN STATEMENT NUMBER XXX IS 
WITHIN AN ON-UNIT . IT IS 
REPLACED BY A NULL STATEMENT. 



Explanation : The main scan of 
fifth pass of read- in has found 
something in the dictionary 
which it cannot recognize 

System Action : Compilation is 
terminated 

User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 

E IEM0241I MULTIPLE USE OF A PREFIX OPTION 
HAS OCCURRED IN STATEMENT NUM- 
BER XXX. THE LAST NAMED OPTION 
IS USED. 

S IEM02 42I INVALID PREFIX OPTION IN STATE- 
MENT NUMBER xxx. THE OPTION 
HAS BEEN IGNORED. 

T IEM024 3I COMPILER ERROR. PHASE CS HAS 
FOUND AN UNMATCHED END. 

System Action : Compilation is 
terminated 

User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 

E IEM02 44I CHECK PREFIX OPTION IN STATE- 
MENT NUMBER XXX IS NOT FOLLOWED 
BY A PARENTHESIZED LIST. THE 
OPTION HAS BEEN IGNORED. 



S IEM0235I ARGUMENT OMITTED FOLLOWING yyyy E IEM02 4 5I 
OPTION IN STATEMENT NUMBER xxx. 
OPTION DELETED. 

S IEM0236I THE OPTION yyyy IN STATEMENT 

NUMBER xxx IS UNSUPPORTED OR S IEM0247I 
INVALID. 

S IEM0237I INSUFFICIENT OPTIONS SPECIFIED 
IN STATEMENT NUMBER xxx. THE 
STATEMENT HAS BEEN REPLACED BY 
A NULL STATEMENT. 



A CHECK PREFIX OPTION IS GIVEN 
FOR STATEMENT NUMBER xxx WHICH 
IS NOT A PROCEDURE OR BEGIN. 
THE OPTION HAS BEEN IGNORED. 

ALL SUBSCRIPTED LABELS PREFIX- 
ING PROCEDURE OR ENTRY STATE- 
MENT NUMBER xxx HAVE BEEN 
IGNORED. 

Explanation : Subscripted 
labels may not be used as pre- 
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fixes on PROCEDURE or ENTRY 
statements. 



S IEM0514I PARAMETER yyyy IN STATEMENT 
NUMBER xxx IS SAME AS LABEL. 
PARAMETER REPLACED BY DUMMY. 



T IEM0254I 



T IEM0255I 



W IEM0510I 



W IEM0511I 



S IEM0512I 



S IEM0 513I 



COMPILER UNABLE TO RECOVER FROM 
I/O ERROR - PLEASE RETRY JOB. 

System Action : Terminates com- 
pilation 

User Response : Re -attempt com- 
pilation 

THERE ARE NO COMPLETE STATE- 
MENTS IN THIS PROGRAM 

Explanation : Compiler cannot 
reconcile END statements with 
stack entries. Usually caused 
by a program containing only 
comments . 

System Action : Compilation is 
terminated 

User Response : Check source 
for completed statements. If 
these are present then save 
relevant data and call your 
local IBM representative. 

THE TASK OPTION HAS BEEN 
ASSUMED TO APPLY TO THE EXTER- 
NAL PROCEDURE STATEMENT NUMBER 
XXX 

Explanation : TASK, EVENT or 
PRIORITY options have been 
detected in a CALL statement, 
but the TASK option has not 
been specified in the external 
procedure. 

S ystem Action : The TASK option 
is correctly applied 

OPTIONS MAIN AND/OR TASK ARE 
NOT ALLOWED ON THE INTERNAL 
PROCEDURE STATEMENT NUMBER XXX 



System Action : The 
options are ignored 



invalid 



IDENTIFIER yyyy IN STATEMENT 
NUMBER xxx IN INITIAL ATTRIBUTE 
LIST IS NOT A KNOWN LABEL CON- 
STANT AND HAS BEEN IGNORED. 



System 



Action: 



Identifier 



changed tb * in the list. 

REPEATED LABEL IN SAME BLOCK ON 
STATEMENT NUMBER xxx. LABEL 
DELETED. 

Explanation : A label may not 
be used more than once in the 
same block. 



S IEM0515I 



S IEM0516I 



S IEM0517I 
S IEM0518I 



IMPLEMENTATION RESTRICTION. 
CHARACTER STRING LENGTH IN 
STATEMENT NUMBER XXX REDUCED TO 
32, 767. 

ILLEGAL OPTIONS LIST ON STATE- 
MENT NUMBER xxx. LIST IGNORED. 

System Action : Compiler scans 
for next right bracket. If 
this is not the bracket closing 
the illegal options list, a 
compiler error will probably 
follow. 

CONFLICTING ATTRIBUTE DELETED 
IN STATEMENT NUMBER xxx 

IMPLEMENTATION RESTRICTION. 
PRECISION TOO LARGE IN STATE- 
MENT NUMBER XXX . DEFAULT PRE- 
CISION GIVEN. 

Explanation : If later a valid 
precision is given, this will 
be accepted in place of the 
default. 



System 



Action: 



S IEM0519I 



Attribute 

ignored, Attribute test mask 
restored so that later attri- 
bute will not be found to con- 
flict with deleted one. 

ILLEGAL ATTRIBUTE ON STATEMENT 
NUMBER xxx IGNORED. 

Explan a tion : Only data attri- 
butes allowed on procedure or 
entry statements. (No dimen- 
sions allowed) . 



T IEM052 0I COMPILER ERROR CODE nnnn 

Explanation : A compiler error 
has occurred. 



System 



Action: 



Terminates 



immediately 



S IEM0521I 



User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 

INVALID STRING LENGTH IN STATE- 
MENT NUMBER XXX. LENGTH OF 1 
ASSUMED. 

Explanation : Either no length 
has been given or string length 
* has been used in source code. 

System Action : Assumes length 
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of 1 and skips to 
bute 



next attri- 



S IEM0522I IMPLEMENTATION RESTRICTION. 
NUMBER OF PARAMETERS IN PROCE- 
DURE OR ENTRY STATEMENT NUMBER 
XXX TRUNCATED TO 64. 

S IEM0523I PARAMETER zzzz IN STATEMENT 
NUMBER xxx APPEARS TWICE. SEC- 
OND ONE REPLACED BY DUMMY. 

S IEM0524I IDENTIFIER yyyy IN LABEL LIST 
IN STATEMENT NUMBER XXX IS NOT 
A LABEL OR IS NOT KNOWN. 



S ystem Action ; 
tifier 



Ignores iden- 



S IEM0532I 



IN STATEMENT NUMBER XXX. THE 
LABEL zzzz AND ANY FOLLOWING IT 
HAVE BEEN IGNORED. 

Explanatio n: There is an 
implementation restriction lim- 
iting the number of label con- 
stants following the LABEL 
attribute to 125. 

ILLEGAL ASTERISK AS SUBSCRIPT 
IN DEFINING LIST IN STATEMENT 
NUMBER XXX . LIST TRUNCATED. 

System Action : Compilation 
continues with truncated isUB 
list, possibly causing cascade 
errors. 



T IEM0525I 



W IEM526I 



S IEM0527I 



T IEM0528I 



S IEM0529I 



S IEM0 53 0I 



IMPLEMENTATION RESTRICTION. 
MORE THAN 7 3 PAIRS OF FACTORED 
ATTRIBUTE BRACKETS. 

Explanation : There is an 
implementation restriction lim- 
iting the number of left paren- 
theses used for factoring 
attributes in DECLARE state- 
ments to 7 3 within a compila- 
tion. 

System Action : Terminates com- 
pilation 

User Response : Reduce factor- 
ing by expanding declarations. 

OPTION MAIN HAS NOT BEEN SPECI- 
FIED FOR THE EXTERNAL PROCEDURE 
STATEMENT NUMBER xxx 

IMPLEMENTATION RESTRICTION. 
ARRAY BOUND IN STATEMENT NUMBER 
xxx IS TOO LARGE AND HAS BEEN 
REPLACED BY THE MAXIMUM PERMIT- 
TED VALUE (3 2767 OR -32768). 



COMPILER ERROR CODE 
STATEMENT NUMBER xxx 



nnnn I N 



Explanation : Compiler error 
found in processing a DECLARE 
statement 



System Action : 
pilation 



Terminates com- 



User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 

IMPLEMENTATION RESTRICTION. 
STRUCTURE LEVEL NUMBER IN 
STATEMENT NUMBER xxx REDUCED TO 
255. 

IMPLEMENTATION RESTRICTION. 
TOO MANY LABELS IN LABEL LIST 



S IEM0533I IMPLEMENTATION RESTRICTION. 
I- SUB VALUE IN STATEMENT NUMBER 
xxx TOO LARGE. REDUCED TO 32. 

Explanatio n: There is an 
implementation restriction lim- 
iting the number of dimensions 
to a maximum of 32 . 

S IEM0534I IMPLEMENTATION RESTRICTION. 
STRING LENGTH IN STATEMENT NUM- 
BER XXX REDUCED TO 32,767. 

S IEM0535I IMPLEMENTATION RESTRICTION. 
KEYLENGTH IN STATEMENT NUMBER 
xxx REDUCED TO 255. 

S IEM0536I IDENTIFIER yyyy IN STATEMENT 
NUMBER xxx IS NOT A LABEL CON- 
STANT OR IS NOT KNOWN. IT IS 
IGNORED. 

Explanation : Identifiers fol- 
lowing the LABEL attribute must 
be LABEL constants and must be 
known. 

S IEM0537I IMPLEMENTATION RESTRICTION. 
POSITION CONSTANT IN STATEMENT 
NUMBER xxx REDUCED TO 32,767. 

E IEM0538I IMPLEMENTATION RESTRICTION. 
PRECISION SPECIFICATION IN 
STATEMENT NUMBER xxx TOO LARGE. 
DEFAULT PRECISION GIVEN. 

E IEM0539I ILLEGAL NEGATIVE PRECISION IN 
STATEMENT NUMBER xxx . DEFAULT 
PRECISION GIVEN. 

S IEM0540I * BOUNDS ARE MIXED WITH NON-* 
BOUNDS IN DECLARE STATEMENT 
NUMBER xxx . ALL THE BOUNDS 
ARE MADE *. 

E IEM05U1I LOWER BOUND GREATER THAN UPPER 
BOUND IN DECLARE OR ALLOCATE 
STATEMENT NUMBER xxx . THE 
BOUNDS ARE INTERCHANGED. 
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S IEM0 542I 



T IEM0 54 3I 



T IEM0544I 



IMPLEMENTATION RESTRICTION. 
NUMBER OF DIMENSIONS DECLARED 
TRUNCATED TO 32 IN STATEMENT 
NUMBER xxx 



COMPILER ERROR. 
MENT FOUND IN 
CHAIN. 



ILLEGAL STATE- 
THE DECLARE 



Explanation : Compiler error 
found in scanning chain of 
DECLARE statements 



System 



Action: 



terminated 



Compilation 



User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 



COMPILER ERROR. INITIAL CODE 
BYTE OF DECLARE STATEMENT IS 
NEITHER STATEMENT NUMBER NOR 
STATEMENT LABEL. 



T IEM05U8I 



MAJOR STRUCTURE MEMBER AND HAS 
THE SAME NAME AS A PARAMETER IN 
THE SAME BLOCK. THESE ARE 
DIFFERENT IDENTIFIERS, AND 
UNQUALIFIED REFERENCES REFER TO 
THE PARAMETER. 

System Action : Same BCD treat- 
ed as different identifiers 

COMPILER ERROR. ILLEGAL CHAR- 
ACTER FOUND IN DECLARATION 
LIST. 

Explanation : Compiler error 
found in list of declarations 
in DECLARE statement 



System 



Action: 



terminated 



Compilation 



User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 



Explanation : Compiler error 
found in first byte of DECLARE 
statements 



System Actio n: 
terminated 



Compilation 



User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 

T IEM0545I COMPILER ERROR. ILLEGAL INI- 
TIAL CHARACTER TO DECLARED ITEM 
IN STATEMENT NUMBER xxx 

Explanation : Compiler error 
found in scanning start of 
declared item 



System Action : 
terminated 



Compilation 



User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 



E IEM054 9I THE DECLARED LEVEL OF IDENTIFI- 
ER yyyy IN STATEMENT NUMBER xxx 
SHOULD BE ONE. THIS HAS BEEN 
FORCED. 

System Action : Illegal level 
number treated as 1 

S IEM0550I THE IDENTIFIER yyyy HAS BEEN 
DECLARED IN STATEMENT NUMBER 
XXX WITH A TRUE LEVEL NUMBER 
GREATER THAN THE IMPLEMENTATION 
RESTRICTION OF 63. THE DECLAR- 
ATION OF THE IDENTIFIER IS 
IGNORED. 

E IEM0551I THE IDENTIFIER yyyy HAS BEEN 
DECLARED IN STATEMENT NUMBER 
XXX WITH ZERO PRECISION. THE 
DEFAULT VALUE HAS BEEN ASSUMED. 

T IEM0552I COMPILER ERROR. ILLEGAL CHAR- 
ACTER FOUND IN FACTORED ATTRI- 
BUTE LIST IN DECLARE STATEMENT 
NUMBER XXX 



T IEM0 546I COMPILER ERROR. ILLEGAL CHAR- 
ACTER FOUND AFTER LEVEL NUMBER 
IN DECLARE STATEMENT NUMBER xxx 



Explanation : Compiler error 
found in factored attribute 
list 



Explanation : Compiler error 
found after structure level 
number in DECLARE statement 



System Action : 
terminated 



Compilation 



System Action : 
terminated 



User Response : 



Compilation 



Save relevant 



data. Call your local IBM rep- 
resentative. 



User Response : Save relevant E IEM0553I 
data. Call your local IBM rep- 
resentative. 



THE IDENTIFIER yyyy HAS HAD A 
CONFLICTING ATTRIBUTE IGNORED 
IN DECLARE STATEMENT NUMBER XXX 



W IEM0 547I 



THE IDENTIFIER yyyy DECLARED IN 
STATEMENT NUMBER XXX IS A NON- 



Explanation : The two attri- 
butes may conflict as a result 
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of a feature not supported by 
this version of the compiler. 
For details of these features, 
refer to Appendix H of this 
publication. 



S IEM0562I THE IDENTIFIER yyyy IS DECLARED 
IN STATEMENT NUMBER xxx AS AN 
INTERNAL ENTRY POINT. THE NUM- 
BER OF PARAMETERS DECLARED IS 
DIFFERENT FROM THE NUMBER GIVEN 
AT THE ENTRY POINT. 



T IEM0554I COMPILER ERROR. ILLEGAL CHAR- 
ACTER FOUND IN PARAMETER LIST 
FOLLOWING 'GENERIC ATTRIBUTE. 



S IEM0563I THE IDENTIFIER yyyy DECLARED 
■BUILTIN* IN STATEMENT NUMBER 
XXX IS NOT A BUILT-IN FUNCTION. 
DECLARATION IGNORED. 



System 



Action: 



E IEM0 555I 



T IEM0556I 



E IEM0557I 



S IEM0 558I 



E IEM0559I 



E IEM0560I 



S IEM0561I 



terminated 



Compilation E IEM0564I 



User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 

STORAGE CLASS ATTRIBUTES MAY 
NOT BE SPECIFIED FOR STRUCTURE 

member yyyy • attribute 

IGNORED. 

U ser Resp onse; Delete illegal 
storage class attribute for the 
structure member. 

COMPILER ERROR. ILLEGAL CHAR- 
ACTER FOUND IN PARAMETER LIST 
FOLLOWING AN 'ENTRY' ATTRIBUTE 
IN DECLARE STATEMENT NUMBER XXX 



System 



Action: 



terminated 



Compilation 



User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 

THE MULTIPLE DECLARATION OF 
IDENTIFIER yyyy IN STATEMENT 
NUMBER XXX HAS BEEN IGNORED. 

IMPLEMENTATION RESTRICTION. 
NUMBER OF PARAMETER DESCRIP- 
TIONS DECLARED FOR PROCEDURE OR 
ENTRY NAME yyyy IN STATEMENT 
NUMBER xxx TRUNCATED TO 64. 

THE IDENTIFIER yyyy HAS BEEN 
DECLARED IN STATEMENT NUMBER 
XXX WITH CONFLICTING FACTORED 
LEVEL NUMBERS. THE ONE AT 
DEEPEST FACTORING LEVEL HAS 
BEEN CHOSEN. 

IN STATEMENT NUMBER XXX A CON- 
FLICTING ATTRIBUTE HAS BEEN 
IGNORED IN THE DECLARATION OF 
THE RETURNED VALUE OF ENTRY 

point yyyy 

IN STATEMENT NUMBER XXX THE 
IDENTIFIER yyyy IS A MULTIPLE 
DECLARATION OF AN INTERNAL 
ENTRY LABEL. THIS DECLARATION 
IS IGNORED. 



E IEM0565I 



E IEM0566I 



W IEM0567I 



S IEM0568I 



T IEM0569I 



THE IDENTIFIER yyyy HAS BEEN 
DECLARED IN STATEMENT NUMBER 
XXX WITH PRECISION GREATER THAN 
THE IMPLEMENTATION LIMITS. THE 
MAXIMUM VALUE HAS BEEN TAKEN. 

THE IDENTIFIER yyyy IS DECLARED 
IN STATEMENT NUMBER XXX AS A 
MEMBER OF A GENERIC LIST, BUT 
ITS ATTRIBUTES DO NOT MAKE IT 
AN ENTRY POINT. THE DECLAR- 
ATION OF THE IDENTIFIER HAS 
BEEN IGNORED. 

ONE OF THE PARAMETERS DECLARED 
FOR ENTRY POINT yyyy IN STATE- 
MENT NUMBER XXX SHOULD BE AT 
LEVEL ONE. THIS HAS BEEN 
FORCED . 

IF FUNCTION zzzz IN STATEMENT 
NUMBER XXX IS INVOKED, THE USE 
OF DEFAULT ATTRIBUTES FOR THE 
VALUE RETURNED WILL CONFLICT 
WITH THE DECLARED ATTRIBUTES 
FOR THAT VALUE. 

Explanation : The data type to 
which a result will be convert- 
ed at a RETURN (expression) 
will not be the same as that 
expected at an invocation of 
the entry label as a function. 

System A ction: None 

User Respons e: Write an ENTRY 
declaration in the containing 
PROCEDURE or BEGIN block, giv- 
ing the same data attributes as 
on the PROCEDURE or ENTRY 
statement. 

THE IDENTIFIER zzzz IS CALLED 
BUT IS EITHER A BUILTIN FUNC- 
TION OR IS NOT AN ENTRY POINT. 

System A ction : The erroneous 
statement is deleted. 



COMPILER ERROR NUMBER 
MODULE EP. 



nnnn 



IN 



Explanation : Compiler error 
found in scan of chain of CALL 
statements 
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System Action : 
terminated 



Compilation S IEM05 90I 



User Response ; Save relevant 
data. Call your local IBM rep- 
resentative- 

W IEM0 570I THE ENTRY POINT yyyy HAS BEEN 
DECLARED IN STATEMENT NUMBER 
XXX TO HAVE A RETURNED VALUE 
DIFFERENT FROM THAT GIVEN ON 
THE PROCEDURE OR ENTRY STATE- 
MENT. 

System Action ; None 

User Response ; change the dec- 
laration, or the PROCEDURE or 
ENTRY statement. 

S IEM0 571I IMPLEMENTATION RESTRICTION. 
IDENTIFIER yyyy IN STATEMENT 
NUMBER XXX HAS MORE THAN 3 2 
DIMENSIONS. DIMENSION ATTRI- 
BUTE IGNORED. 



S IEM0591I 



S IEM0592I 



STRUCTURE ELEMENT zzzz WHICH 
HAS LIKE ATTRIBUTE ATTACHED TO 
IT, IS FOLLOWED BY AN ELEMENT 
WITH A NUMERICALLY GREATER 
STRUCTURE LEVEL NUMBER. LIKE 
ATTRIBUTE IS IGNORED. 

System Action ; Self explan- 
atory: may result in cascade 
errors. 

STRUCTURE ELEMENT zzzz IS LIK- 
ENED TO AN ITEM WHICH IS NOT A 
STRUCTURE VARIABLE . LIKE 
ATTRIBUTE IS IGNORED. 

System Action : Self explan- 
atory: may result in cascade 
errors. 

STRUCTURE ELEMENT zzzz IS LIK- 
ENED TO A STRUCTURE WHICH CON- 
TAINS ELEMENTS WHICH HAVE ALSO 
BEEN DECLARED WITH THE LIKE 
ATTRIBUTE. LIKE ATTRIBUTE ON 
ORIGINAL STRUCTURE IS IGNORED. 



S IEM0572I THE IDENTIFIER yyyy HAS BEEN 
DECLARED IN STATEMENT NUMBER 
xxx WITH THE ATTRIBUTE "NORMAL" 
OR "ABNORMAL". THE APPLICATION 
OF THIS ATTRIBUTE IS AN UNSUP- S IEM059 3I 
PORTED FEATURE OF THE FOURTH 
VERSION, AND IT HAS BEEN 
IGNORED. 

E xplanation : A language feature 

has been used which is not 

supported by this version of 

the compiler. Refer to Appen- E IEM0594I 

dix H of this publication for 

details. 



System Action : Self explan- 
atory: may result in cascade 
errors. 

STRUCTURE NAME TO WHICH ZZZZ IS 
LIKENED IS NOT KNOWN. LIKE 
ATTRIBUTE IGNORED. 

System Action ; Self explan- 
atory: may result in cascade 
errors. 

AMBIGUOUS QUALIFIED NAME yyyy 
USED AS A BASE IDENTIFIER. 
MOST RECENT DECLARATION USED. 



S IEM0 573I THE SELECTION OF GENERIC FAMILY 
MEMBERS WHOSE PARAMETERS HAVE A 
STRUCTURE DESCRIPTION IS 
DEFERRED. ENTRY NAME yyyy., 
DECLARED IN STATEMENT NUMBER 
XXX, IS SUCH A MEMBER AND HAS 
BEEN DELETED. 



E IEM05 95I QUALIFIED NAME yyyy USED AS A 
BASE IDENTIFIER CONTAINS MORE 
THAN ONE IDENTIFIER AT THE SAME 
STRUCTURE LEVEL. 

System Action ; The erroneous 
statement is deleted. 



Explan ation : The usage 
referred to is not supported by 
this version of the compiler. 
For details, refer to Appendix 
H of this publication. 

T IEM0 574I THE MULTIPLE DECLARATION OF 
IDENTIFIER yyyy IN STATEMENT 
NUMBER XXX HAS BEEN IGNORED. 

S IEM0 589I COMPILER ERROR. ITEM zzzz IN 
LIKE CHAIN IS NOT A STRUCTURE. 
ITEM IS IGNORED. 

User Response : Save relevant 
data. Call your local IBM rep- 
resentative,. 



S IEM0596I MAJOR STRUCTURE yyyy HAS BEEN 
LIKENED TO AN ITEM WHICH IS NOT 
A VALID STRUCTURE. DECLARATION 
OF STRUCTURE IGNORED. 

System Action : Self explan- 
atory: may result in cascade 
errors. 

S IEM0597I IDENTIFIER zzzz WHICH IS NOT A 
FORMAL PARAMETER OR OF STORAGE 
CLASS CONTROLLED HAS BEEN LIK- 
ENED TO A STRUCTURE CONTAINING 
* DIMENSIONS OR LENGTH. * 
DIMENSIONS OR LENGTH HAVE BEEN 
IGNORED IN THE CONSTRUCTED 
STRUCTURE. 
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S IEM0598I 



S IEM0599I 



S IEM0600I 



S IEM0601I 



T IEM0602I 



T IEM0603I 



T IEM0604I 



System Action : Self explan- 
atory: may result in cascade 
errors from later phases. 

QUALIFIED NAME TO WHICH ZZZZ 
HAS BEEN LIKENED IS AN AMBIGU- 
OUS REFERENCE. LIKE ATTRIBUTE 
HAS BEEN IGNORED. 

zzzz WHICH IS A PARAMETER OR A 

BASED VARIABLE, HAS BEEN 

DECLARED (USING THE LIKE 

ATTRIBUTE) AS A STRUCTURE WITH 

THE INITIAL ATTRIBUTE. THE 
INITIAL ATTRIBUTE IS INVALID 
AND HAS BEEN IGNORED. 

User Response : Declare the pa- 
rameter or based variable with 
the LIKE attribute specifying a 
structure without the INITIAL 
attribute. 

STATIC STRUCTURE zzzz HAS BEEN 
DECLARED BY MEANS OF THE LIKE 
ATTRIBUTE TO HAVE ADJUSTABLE 
EXTENTS. THE EXTENTS HAVE BEEN 
IGNORED. 

Explanation : A STATIC variable 
cannot have adjustable extents 

System Action : All bounds on 
the offending variable are set 
to zero 

OFFSET ATTRIBUTE ON PROCEDURE 
STATEMENT NUMBER xxx IS NOT 
BASED ON A BASED AREA. IT HAS 
BEEN CHANGED TO POINTER. 

IDENTIFIER IN BASED ATTRIBUTE 

ON zzzz DECLARED IN STATEMENT 

NUMBER xxx IS NOT A NON- BASED 
POINTER 

System Action : Compilation is 
terminated 

INVALID POINTER EXPRESSION IN 
BASED ATTRIBUTE ON ZZZZ IN 
STATEMENT NUMBER XXX 

Explanation : The pointer asso- 
ciated with the based variable 
does not obey the implementa- 
tion rules (e.g., it may be 
subscripted) . 



System Action : 
is terminated 



The compilation 



LENGTH DECLARED FOR BASED 
STRING zzzz IN STATEMENT NUMBER 
XXX IS INVALID 



tation rules. (See Appendix B, 
'Implementation Conventions and 
Restrictions* ) . 



System Action : 
pilation 



Terminates com- 



T I EM 06051 BOUNDS DECLARED FOR BASED ARRAY 
zzzz IN STATEMENT NUMBER xxx 
ARE INVALID 

Explanation : The adjustable 
bounds declared are outside 
those permitted by this implem- 
entation,. 



S IEM0606I 



W IEM0607I 



T IEM0608I 



System Action : 
pilation 



Terminates com- 



OFFSET VARIABLE zzzz HAS BEEN 
DECLARED IN STATEMENT NUMBER 
xxx RELATIVE TO AN IDENTIFIER 
WHICH IS NOT A BASED AREA. IT 
HAS BEEN CHANGED TO A POINTER 
VARIABLE. 



System Action : 



The offset is 



changed to a pointer to prevent 
the compiler from producing 
further error messages. 

IF THE BASE OF zzzz CORRESPON- 
DENCE DEFINED IN STATEMENT NUM- 
BER XXX IS ALLOCATED WITH THE 
DECLARED BOUNDS THE DEFINING 
WILL BE IN ERROR. 

Explanation : For correspon- 
dence defining not involving 
iSUB*s, the bounds of the 
defined array must be a subset 
of the bounds of the base. In 
this case the bounds declared 
for the base do not satisfy 
this requirement. However, the 
base is of CONTROLLED storage 
class and if it is allocated 
with different bounds the 
defining may be legal. 

System Action : Nothing further 



ILLEGAL DEFINING IN 
NUMBER XXX, BASE 
zzzz IS A MEMBER OF 
SIONED STRUCTURE. 



STATEMENT 

IDENTIFIER 

A DIMEN- 



Explanation : In the case of 
string class overlay defining 
where the base is an array, it 
is an error if it is a member 
of an array of structures. 

System Action : The compilation 
is terminated. 



Explanation : The declaration 
violates the compiler implemen- 



User Response : Refer to the 
PL/I Reference Manual - "The 
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T IEM0609I 



T IEM0 610I 



T IEM0611I 



E IEM0612I 



DEFINED Attribute' 
rect error. 



- and cor- 



DEFERRED FEATURE. DEFINING OF 
zzzz DECLARED IN STATEMENT NUM- 
BER XXX WITH A SUBSCRIPTED 
BASE. 

Explanation : Overlay defining 
on a subscripted base is not 
supported by this version of 
the compiler. 



System Action : 
is terminated. 



The compilation 



User Respons e: Replace all 
references to the defined item 
by appropriate subscripted ref- 
erences to the base. 

DEFERRED FEATURE. DEFINING OF 
zzzz DECLARED IN STATEMENT NUM- 
BER XXX ON A BASE OF CONTROLLED 
STORAGE CLASS. 

Expl anation: If the base is 
declared CONTROLLED, neither 
overlay defining nor correspon- 
dence defining is supported by 
this release of the compiler. 

System Action : The compilation 
is terminated. 

User Response : Replace all 
references to the defined item 
by appropriate references to 
the base. 

SCALAR ZZZZ DECLARED IN STATE- 
MENT NUMBER xxx IS ILLEGALLY 
DEFINED WITH ISUBS. 

Explanation : Only arrays may 
be correspondence defined using 
iSUB notation. 



System Action : 
is terminated. 



The compilation 



User Response : Refer to the 
PL/I Reference Manual - "The 
DEFINED Attribute" - and cor- 
rect error. 

INITIAL ATTRIBUTE DECLARED FOR 
DEFINED ITEM ZZZZ IN STATEMENT 
NUMBER XXX WILL BE IGNORED. 

Explanation : DEFINED items may 
not have the INITIAL attribute. 



System Action ; 
bute ignored 



INITIAL attri- 



T IEM0623I THE BASE SUBSCRIPT LIST USED 
WITH THE DEFINED VARIABLE ZZZZ 



IN STATEMENT NUMBER XXX ILLE- 
GALLY REFERS TO OR IS DEPENDENT 
ON THE DEFINED VARIABLE. 

Explanation : It is illegal for 
a base subscript list in the 
DEFINED attribute to refer 
directly, or via any further 
level of defining, to the 
defined item. 



System Ac tion: 
is terminated. 



The compilation 



User Response : Refer to the 
PL/I Reference Manual - "The 
DEFINED Attribute" - and cor- 
rect error. 

T IEM06 2UI THE DEFINING BASE FOR zzzz 
DECLARED IN STATEMENT NUMBER 
xxx IS ITSELF DEFINED. 

Explanation : The base of 
DEFINED data may not itself be 
DEFINED 

System Action : The compilation 
is terminated. 



User Resoonse: 



Replace the 



specified base by an appropri- 
ate reference to its base. 

T IEM06 25I THE DEFINING BASE FOR zzzz 
DECLARED IN STATEMENT NUMBER 
XXX HAS THE WRONG NUMBER OF 
SUBSCRIPTS. 

Explanation : If the base ref- 
erence in a DEFINED attribute 
is subscripted, it must have 
the same number of subscript 
expressions as the dimensional- 
ity of the base array. 

System Action : The compilation 
is terminated. 



User Response : 



Correct the 



subscript list, or declaration 
of the base, whichever 
appropriate. 

T IEMQ6 2 6I THE DEFINING BASE FOR ZZZZ 
DECLARED IN STATEMENT NUMBER 
xxx IS NOT DATA. 

Explanat ion: The only legal 
data types that may be used for 
defining bases are String, 
Arithmetic, Task, Event, and 
Label. 

System Action : The compilation 
is terminated. 

User Response : Check that the 
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defining base is correctly 
written and declared. 

T IEM0627I IMPLEMENTATION RESTRICTION. 
STATEMENT NUMBER xxx IS TOO 
LONG. 

Explanation ; System Generation 
compiler restriction 

System Action : The compilation 
is terminated. 

User Response : Reduce state- 
ment size 

T IEM0628I IMPLEMENTATION RESTRICTION. 
THE NESTING OF REFERENCES TO 
DATA DEFINED WITH A SUBSCRIPTED 
BASE IS TOO DEEP. 

Explanation : The complexity of 
defining has resulted in a 
level of nesting which is too 
great for the compiler. 

S ystem Action : The compilation 
is terminated. 

User Response : Reduce complex- 
ity of defining. 

T IEM0629I ARRAY zzzz DECLARED IN STATE- 
MENT NUMBER xxx ILLEGALLY HAS 
THE POS ATTRIBUTE WITH ISUB 
DEFINING. 

Explanation : The POS attribute 
may not be specified for cor- 
respondence defining. 

System Action : The compilation 
is terminated. 

User Response : Delete POS 
attribute 

T IEM0630I THE DESCRIPTION OF zzzz CORRES- 
PONDENCE DEFINED IN STATEMENT 
NUMBER xxx DOES NOT MATCH THAT 
OF THE DEFINING BASE. 

Explanation : For correspon- 
dence defining, if either the 
base or the defined item are 
arrays of structures, then both 
must be arrays of structures. 

System Action : The compilation 
is terminated. 

User Response : Correct the 
program. Note that POS (1) may 
be used to force overlay defin- 
ing. 

T IEM0631I IMPLEMENTATION RESTRICTION. 
THE CORRESPONDENCE DEFINING OF 



yyyy AN 
DECLARED 
xxx. 



ARRAY OF STRUCTURES 
IN STATEMENT NUMBER 



Explanation : Correspondence 
defining with arrays of struc- 
tures is not supported by the 
compiler. 

System Action : The compilation 
is terminated. 

User Response : Declare the 
base arrays of the defined 
structure as correspondence 
defined on the matching base 
arrays of the base structure. 
Note that for this to be valid, 
the base arrays of the defined 
structure must have unique 
names and be declared at level 
1. This alternative method 
precludes structure operations 
with the defined item, but 
achieves the desired mapping. 

T IEM06 3 2I THE BOUNDS OF zzzz CORRESPON- 
DENCE DEFINED IN STATEMENT NUM- 
BER xxx ARE NOT A SUBSET OF THE 
BASE. 

Explanation : For correspon- 
dence defining not involving 
iSUB's, the bounds of the 
defined array must be a subset 
of the corresponding bounds of 
the base array. 

System Action : The compilation 
is terminated. 

User Response : Refer to the 
PL/I Reference Manual - "The 
DEFINED Attribute" - and cor- 
rect program. Note that POS 
(1) may be used to force over- 
lay defining. 

S IEM06 33I ITEM TO BE ALLOCATED IN STATE- 
MENT NUMBER xxx IS NOT AT LEVEL 
1. THE STATEMENT HAS BEEN 
IGNORED . 



Explanation: 



An 



specified in an ALLOC 
ment must refer to 
structure or data not 
in a structure. A ma 
ture identifier may 
be followed by a full 
description. 

System Action : The 
statement is deleted 



identifier 
ATE state- 
a major 

contained 
jor s true- 
optionally 

structure 



ALLOCATE 



User Response : Replace erro- 
neous identifier by that of the 
containing major structure. 
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S IEM0634I 



S IEM0636I 



ITEM TO BE ALLOCATED IN STATE- 
MENT NUMBER xxx HAS NOT BEEN 
DECLARED. THE STATEMENT HAS 
BEEN IGNORED. 

Explanation : Only CONTROLLED 
data may be allocated. Data 
may only obtain the attribute 
CONTROLLED from an explicit 
declaration. 

System Action : The ALLOCATE 
statement is deleted 

User Response : Construct a 
DECLARE statement for the iden- 
tifier 

ITEM TO BE ALLOCATED IN STATE- 
MENT NUMBER XXX WAS NOT 
DECLARED CONTROLLED. THE 
STATEMENT HAS BEEN IGNORED. 

Explanation : Only CONTROLLED 
data may be specified in ALLO- 
CATE statements. 

System A c tion : The ALLOCATE 
statement is deleted 



User Response : 



Declare 



the 



identifier CONTROLLED 



E IEM0637I A CONFLICTING ATTRIBUTE WAS 
GIVEN FOR zzzz IN STATEMENT 
NUMBER XXX- THE ATTRIBUTE HAS 
BEEN IGNORED. 

Explanation : Attributes given 
for an identifier in an ALLO- 
CATE statement may not conflict 
with those given explicitly or 
assumed by default from the 
declaration. 



System Action 



Ignores the 



S IEM0638I 



S IEM0640I 



attribute from the ALLOCATE 

THE STRUCTURE DESCRIPTION GIVEN 
ON STATEMENT NUMBER XX x DIFFERS 
FROM THAT DECLARED. THE STATE- 
MENT HAS BEEN IGNORED. 

Explanation : If a description 
of a major structure is given 
on an ALLOCATE statement, the 
description must match that 
declared. 

System Action : The ALLOCATE 
statement is deleted 

AN INVALID ATTRIBUTE WAS GIVEN 
IN STATEMENT NUMBER xxx. THE 
STATEMENT HAS BEEN IGNORED. 

Explanation : Only CHAR, BIT, 
INITIAL, and Dimension attri- 



butes are permitted in ALLOCATE 
statements. 



System Action : The 
statement is deleted 



ALLOCATE 



E IEM0641I CONFLICTING ATTRIBUTES HAVE 
BEEN GIVEN FOR zzzz IN STATE- 
MENT NUMBER xxx. THE FIRST 
LEGAL ONE HAS BEEN USED. 

Explanation : At most, one 
attribute in the following 
classes may be given for an 
identifier in an ALLOCATE 
statement: Dimension, 
String (CHAR or BIT), INITIAL. 



Syste m Act ion : All attributes 
after the first in a particular 
class are ignored. 

DIMENSIONALITY GIVEN IN STATE- 
MENT NUMBER xxx DIFFERS FROM 
THAT DECLARED. THE STATEMENT 
HAS BEEN IGNORED. 

Explanation : If a dimension 
attribute is given for an iden- 
tifier in an ALLOCATE state- 
ment., the identifier must have 
been declared with the same 
dimensionality. 



S IEM06U2I 



System Action : The 
statement is deleted 



ALLOCATE 



W IEM0643I 



User Response : Correct declar- 
ation or ALLOCATE Statement, 
whichever applicable. 

THE LEVEL NUMBER DECLARED FOR 
zzzz IS NOT THE SAME AS THAT 
GIVEN IN STATEMENT NUMBER xxx. 
THE FORMER HAS EEEN USED. 

Explanatio n: If a structure 
description is given in an 
ALLOCATE Statement, it must 
match the declaration. The 
indicated level number discre- 
pancy may be an error. 

System Action : Nothing further 



User Response: 



ALLOCATE 
intended 



Check 
statement is 



that 
as 



S IEM0644I STATEMENT NUMBER XXX CONTAINS 
AN ILLEGAL PARENTHESIZED LIST. 
THE STATEMENT HAS BEEN IGNORED. 

Explanation : Factored attri- 
bures are not allowed on ALLO- 
CATE statements . 
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System 



Action: 



Statement T IEM0654I 



ignored 



COMPILER ERROR 
NUMBER XXX 



IN 



STATEMENT 



User Response : Remove paren- 
theses and any factored attri- 
butes 

S IEM0 6U5I ATTRIBUTE GIVEN WITH BASED 
VARIABLE zzzz IN ALLOCATE 
STATEMENT NUMBER XXX HAS BEEN 
IGNORED. 

Explanations : Based variable 
may not be specified with 
attributes 



Us er Response : 
CATE statement 



Correct ALLO- 



S IEM0655I 



Exp lanation : Compiler error 
found in scan of statement 



Compilation 



Save relevant 



System Ac tion : 
terminated 

User Response : 
data. Call your local IBM rep- 
resentative. 

QUALIFIED NAME BEGINNING yyyy 
USED IN STATEMENT NUMBER XXX 
BUT NO PREVIOUS STRUCTURE DEC- 
LARATION GIVEN. DUMMY REF- 
ERENCE INSERTED. 



S IEM0646I 



IDENTIFIER yyyy PRECEDING POIN- 
TER QUALIFIER IN STATEMENT NUM- 
BER XXX IS NOT A NON- BASED 
POINTER VARIABLE 

Syst em Action : The identifier 
is replaced by a dummy dic- 
tionary reference; a later 
phase will delete the state- 
ment. 

User Response : Correct the 
invalid statement 



S IEM0 64 7I POINTER-QUALIFIED IDENTIFIER 
zzzz IN STATEMENT NUMBER xxx IS 
NOT A BASED VARIABLE 



System Ac tion : Reference to 
the illegal variable or the 
whole statement will be deleted 
by later phases . 

User Response : Correct program 
by inserting DECLARE statement 

E IEM0656I MOST RECENT DECLARATION USED OF 
AMBIGUOUS QUALIFIED NAME OR 
STRUCTURE MEMBER BEGINNING yyyy 
IN STATEMENT NUMBER XXX 

E IEM065 7I QUALIFIED NAME BEGINNING yyyy 
IN STATEMENT NUMBER XXX CON- 
TAINS MORE THAN ONE IDENTIFIER 
AT THE SAME STRUCTURE LEVEL. 



System Action : Identifier is 
replaced by a dummy dictionary 
reference; a later phase will 
delete the statement. 

User Response : Correct the 
invalid statement 



System Action : 
is deleted 



The statement 



S IEM06 58I QUALIFIED NAME BEGINNING yyyy 
IN STATEMENT NUMBER XXX IS AN 
AMBIGUOUS REFERENCE. DUMMY 
REFERENCE INSERTED. 



T IEM0652I IMPLEMENTATION RESTRICTION. 
STATEMENT NUMBER XXX IS TOO 
LONG. 



System Actio n: 
terminated 



Compilation 



S IEM0673I 



System Ac tion : Statement will 

be deleted by later phase 

ILLEGAL USE OF FUNCTION NAME ON 
LEFT HAND SIDE OF EQUAL SYMBOL 
IN STATEMENT NUMBER XXX 



User Response : Rewrite state- 
ment in question and recompile 

T IEM0 653I COMPILER ERROR. ILLEGAL ENTRY 
IN STATEMENT NUMBER XXX 

Explanation : Compiler error 
found in scan of statement 



System Action : 
terminated 



Compilation 



User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 



System A c tion : Statement will 
be deleted by later phases 

S IEM0674I STATEMENT NUMBER xxx CONTAINS 
ILLEGAL USE OF FUNCTION yyyy 

S ystem Ac t ion : Reference to 
function or whole statement 
will be deleted by later phases 

S IEM0675I IN STATEMENT NUMBER xxx IDEN- 
TIFIER yyyy after go to is not 

A LABEL OR LABEL VARIABLE KNOWN 
IN THE BLOCK CONTAINING THE GO 
TO. 
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System Actiori ; Statement del- 
eted by later phases. 



REFERENCE INSERTED IN STATEMENT 
NUMBER XXX . 



S IEM0676I 



S IEM0677I 



S IEM0682I 



S IEM0683I 



W IEM0684I 



S IEM068 5I 



W IEM0687I 



S IEM06 8 9I 



DEFERRED FEATURE. IDENTIFIER 
yyyy NOT ALLOWED AS A BUILT-IN 
FUNCTION OR PSEUD O- VARIABLE . 
DUMMY REFERENCE INSERTED IN 
STATEMENT NUMBER XXX 

Explanation ; A language fea- 
ture has been used that is not 
supported by this version of 
the compiler. For details „ 
refer to Appendix H of this 
publication. 



System Action ; Statement del- S IEM068 8I 
eted by later phases 

User Response ; Correct state- 
ment by removing reference to 
function in error 

ILLEGAL PARENTHESIZED LIST IN 
STATEMENT NUMBER XXX FOLLOWS AN 
IDENTIFIER WHICH IS NOT A FUNC- 
TION OR ARRAY. LIST DELETED. 

IN STATEMENT NUMBER XXX GO TO 
TRANSFERS CONTROL ILLEGALLY TO 
A FORMAT STATEMENT. 

ZZZZ WAS FOUND WHERE A FILE 
VARIABLE IS REQUIRED IN STATE- 
MENT NUMBER XXX. DUMMY DIC- 
TIONARY REFERENCE REPLACES 
ILLEGAL ITEM. 

System Action ; Statement will S IEM0690I 
be deleted by later phases 

USE OF LABEL VARIABLE zzzz MAY 
RESULT IN AN ILLEGAL BRANCH IN 
STATEMENT NUMBER XXX 

Explanation ; It is possible 
that the label variable may 
contain a value which would 
cause control to branch ille- 
gally into a block. 

Syst e m Action ; None 

User Response ; Check validity 
of possible branches. 

ZZZZ IS NOT A STATEMENT LABEL 
ON AN EXECUTABLE STATEMENT. 
DUMMY REFERENCE INSERTED AFTER 
GO TO IN STATEMENT NUMBER XXX 



S IEM0691I 



S IEM0692I 



S IEM0686I 



System Action ; Statement will S IEM0693I 
be deleted by later phases 

zzzz APPEARS IN A FREE OR ALLO- 
CATE STATEMENT BUT HAS NOT BEEN 
DECLARED CONTROLLED. DUMMY 



System Action ; A dummy ref- 
erence is inserted. The state- 
ment will be deleted by a later 
phase 



IN STATEMENT NUMBER xxx GO TO 
ZZZZ TRANSFERS CONTROL ILLEGAL- 
LY TO ANOTHER BLOCK OR GROUP. 

System Action ; Statement will 
be deleted by later phases 

COMPILER ERROR. TOO FEW LEFT 
PARENTHESES IN STATEMENT NUMBER 
xxx 

Explanation ; This is a compil- 
er error 

System Action : None taken. 
Cascade errors may result. 

User Response ; Save relevant 
data. Call your local IBM rep- 
resentative,. 

ZZZZ WAS FOUND WHERE A TASK 
IDENTIFIER IS REQUIRED IN 
STATEMENT NUMBER XXX. DUMMY 
REFERENCE INSERTED. 

System Action ; Statement will 
be deleted by later phases 

ZZZZ WAS FOUND WHERE EVENT 
VARIABLE IS REQUIRED IN STATE- 
MENT NUMBER XXX. DUMMY REF- 
ERENCE INSERTED. 

System Action ; Statement will 
be deleted by later phases 

INVALID ITEM ZZZZ IN DATA LIST, 
OR "FROM' OR 'INTO' OPTION, IN 
STATEMENT NUMBER xxx 

System Action ; Statement will 
be deleted by later phases 

DATA DIRECTED I/O LIST, OR 
FROM, OR INTO OPTION IN STATE- 
MENT NUMBER XXX CONTAINS FORMAL 
PARAMETER OR DEFINED ITEM zzzz 

System Action ; Statement will 
be deleted by later phases 

ILLEGAL USE OF FUNCTION zzzz IN 
INPUT LIST IN STATEMENT NUMBER 
XXX. DUMMY REFERENCE INSERTED. 

System Action ; Statement will 
be deleted by later phases 
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S IEM0694I 



S IEM0695I 



W IEM0696I 



S IEM0697I 



S IEM0698I 



S IEM0699I 



S IEM0700I 



System Action : 



Object-time 



error message is compiled 

User Response : Correct program 
and recompile 

STATEMENT LABEL ZZZZ ATTACHED 
TO STATEMENT NUMBER XXX IS USED 
AS A REMOTE FORMAT ITEM IN THAT 
STATEMENT. A DUMMY REPLACES 
THE REMOTE FORMAT ITEM. 

System Action : Statement will 
be deleted by a later phase 

THE BASED VARIABLE zzzz IN 
LOCATE STATEMENT NUMBER xxx IS 
NOT AT LEVEL 1. DUMMY REF- 
ERENCE INSERTED. 

System Action : The statement 
will be deleted by a later 
phase. 

STRUCTURE ARGUMENT ZZZZ OF FROM 
OR INTO OPTION IN STATEMENT 
NUMBER XXX IS NOT A MAJOR 
STRUCTURE. DUMMY REFERENCE 
INSERTED 



System Action : Statement 
eted by later phase 



del- 



ILLEGAL USE OF FUNCTION, LABEL 
OR VARYING STRING ZZZZ AS ARGU- 
MENT OF FROM OR INTO OPTION IN 



W IEM0702I 



IN THE FORMAT LIST IN STATEMENT 
NUMBER xxx A REMOTE FORMAT ITEM 
REFERENCES zzzz, WHICH IS NOT A 
STATEMENT LABEL IN THE CURRENT 
BLOCK. DUMMY REFERENCE INSERT- 
ED. 

System Action : Format item S IEM07 01I 
deleted by later phase 

LABEL ARRAY zzzz IS NOT FOL- 
LOWED BY A SUBSCRIPT LIST AFTER 
GO TO IN STATEMENT NUMBER XXX. 
DUMMY REFERENCE REPLACES REF- 
ERENCE TO ARRAY. 

System Action : Statement will 
be deleted by later phases 

IN STATEMENT NUMBER XXX IT IS 
AN ERROR IF THE PARAMETER zzzz 
IN A REMOTE FORMAT ITEM REFERS 
TO A FORMAT STATEMENT WHICH IS 
NOT INTERNAL TO THE SAME BLOCK 
AS THE REMOTE FORMAT ITEM. 

Explanation : Remote formats 
become executable code, but not 
internal procedures. Therefore 
they must appear in the same 
block in which they are used. 



S IEM0703I 



S IEM0704I 



W IEM0705I 



S IEM0706I 



S IEM0707I 



STATEMENT NUMBER xxx. DUMMY 
REFERENCE INSERTED. 



System Action : Statement del- 
eted by later phase 

ARGUMENT ZZZZ OF SET OPTION IS 
NOT A POINTER VARIABLE. DUMMY 
REFERENCE INSERTED. 

System Action : Statement del- 
eted by later phase. 

LABEL, TASK OR EVENT VARIABLE 
ZZZZ USED IN FROM OR INTO 
OPTION IN STATEMENT NUMBER XXX 
MAY LOSE ITS VALIDITY IN TRANS- 
MISSION 

INVALID IDENTIFIER ZZZZ FREED 
IN STATEMENT NUMBER XXX 

Explanatio n: An identifier in 
the FREE statement is not a 
CONTROLLED variable. 



System Action : 



Invalid iden- 



tifier replaced by dummy. 

STATEMENT NUMBER XXX CONTAINS 
INVALID USE OF FUNCTION ZZZZ 

System A ction: Statement del- 
eted by later phase 

IF THE LABEL VARIABLE IN GO TO 
STATEMENT NUMBER XXX ASSUMES 
THE VALUE OF ITS VALUE-LIST 
MEMBER ZZZZ, THE STATEMENT WILL 
CONSTITUTE AN INVALID BRANCH 
INTO AN ITERATIVE DO GROUP. 

System Action : No ne 

User Response : Check that 
branch will be valid at execu- 
tion time. 

VARIABLE ZZZZ IN LOCATE STATE- 
MENT IS NOT A BASED VARIABLE. 
DUMMY REFERENCE INSERTED. 

System A ction: The statement 
is deleted by a later phase. 

User Response : Correct the 
invalid statement 

ARGUMENT zzzz OF IN OPTION IS 
NOT AN AREA VARIABLE. DUMMY 
REFERENCE INSERTED. 

System Action : The statement 
is deleted by a later phase. 



User Response : Correct 
invalid statement 



the 
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E IEM0708I ASTERISK NOT ALONE IN SETS OR 
USES LIST. REMAINDER OF LIST 
IGNORED. 



S IEM07 21I ELEMENT OF STATIC LABEL ARRAY 
ZZZZ USED AS LABEL ON STATEMENT 
NUMBER xxx 



S IEM070 9I IMPLEMENTATION RESTRICTION. 
ARGUMENT NUMBER IN SETS OR USES 
LIST TOO LARGE. REDUCED TO S IEM07 22I 
255. 

E IEM0710I REPEATED ARGUMENT NUMBER 
IGNORED IN SETS OR USES LIST. 

T IEM0711I COMPILER ERROR IN SETS LIST. 

E xplanation ; Compiler error 

found in scan of SETS list T IEM0723I 



System Action ; 
terminated. 



Compilation 



User Response ; Save relevant 
data. Call your local IBM rep- 
resentative. 



System Action ; 
ed 



Label is delet- 



ELEMENT OF LABEL ARRAY zzzz 
USED AS LABEL ON STATEMENT NUM- 
BER XXX IN BLOCK OTHER THAN THE 
ONE IN WHICH IT IS DECLARED. 

System Action ; An error state- 
ment is inserted in the text in 
place of the offending label. 

COMPILER ERROR IN STATEMENT 
NUMBER xxx 

Explanation ; Compiler error 
found in scan of text 

System Action ; Compilation 
terminated 



E IEM0712I 



E IEM0713I 



S IEM0715I 



S IEM0718I 



IDENTIFIER yyyy IN SETS OR USES 
LIST NOT KNOWN AT POINT OF 
OCCURRENCE OF LIST. IDENTIFIER 
IGNORED . 

identifier yyyy IN SETS LIST IS 
BASED VARIABLE. DUMMY REF- ! 
ERENCE INSERTED. 

User Response ; Correct source 
program by removing reference 
to based variable. 

TEXT yyyy ASSOCIATED WITH THE 
INITIAL ATTRIBUTE IN STATEMENT 
NUMBER XXX IS ILLEGAL AND HAS 

BEEN IGNORED. 

Expl an ation ; The INITIAL 
attribute has been used incor- 
rectly. 



System Action ; The 
attribute is deleted 



INITIAL 



INVALID CHECK LIST IN STATEMENT 
NUMBER XXX. STATEMENT HAS BEEN 
CHANGED TO 'ON ERROR'. 



S IEM0724I 



S IEM0725I 



S IEM0726I 



User Response ; Save relevant 
data. Call your local IBM rep- 
resentative. 



FORMAL PARAMETER zzzz IN CHECK 
LIST. PARAMETER IS IGNORED. 

Explanation ; The identifier 
list of a CHECK prefix must not 
contain formal parameters 

STATEMENT NUMBER XXX HAS BEEN 
DELETED DUE TO A SEVERE ERROR 
NOTED ELSEWHERE. 

System A c tion ; The whole 
statement is replaced by an 
error statement. 



IDENTIFIER zzzz IN STATEMENT 
NUMBER XXX IS NOT A FILE NAME. 
THE STATEMENT IS DELETED. 

Explanation ; The identifier 
has been used previously in a 
different context and is there- 
fore not recognized as a file 
name 



S IEM0719I ELEMENT OF LABEL ARRAY zzzz 
WHICH IS DECLARED WITH INITIAL 
ATTRIBUTE USED AS STATEMENT 
LABEL ON STATEMENT NUMBER XXX 



S IEM0727I IDENTIFIER zzzz IN STATEMENT 
NUMBER XXX IS NOT A CONDITION 
NAME. THE STATEMENT IS DELET- 
ED. 



S IEM0720I 



System Action ; Label is delet- 
ed 

SUBSCRIPTED IDENTIFIER ZZZZ 
USED AS LABEL ON STATEMENT NUM- 
BER xxx IS NOT A LABEL ARRAY 

System Action ; Label is delet- 
ed 



T IEM0728I 



Explanation ; The identifier 
has been used previously in a 
different context and is there- 
fore not recognized as a condi- 
tion name 

COMPILATION TERMINATED DUE TO A 
PREVIOUSLY DETECTED SEVERE 
ERROR IN STATEMENT NUMBER xxx 
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S IEM0729I 



Explanation : A previous module 
has inserted a dummy dictionary 
reference into the second file.. 
The compiler cannot recover. 

COMPILER ERROR IN SCALE FACTOR 

in picture beginning yyyy. 

THIS PICTURE OCCURS IN STATE- 
MENT NUMBER XXX, AND POSSIBLY 
IN OTHER STATEMENTS. 



S IEM0735I ILLEGAL CHARACTER OR ILLEGAL 
NUMBER OF CHARACTERS IN SHILL- 
INGS FIELD OF STERLING PICTURE 
yyyy.. THIS PICTURE OCCURS IN 
STATEMENT NUMBER XXX, AND POS- 
SIBLY IN OTHER STATEMENTS. 

System Action ; Scan of picture 
terminated; picture ignored by 
later phases. 



System Action : Scan of picture S IEM0736I 
halted. All references to pic- 
ture deleted. 

User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 

S IEM0730I MORE THAN ONE SIGN CHARACTER 
PRESENT IN A SUBFIELD OF PIC- 
TURE yyyy. THIS PICTURE OCCURS S IEM0737I 
IN STATEMENT NUMBER xxx , AND 
POSSIBLY IN OTHER STATEMENTS. 

System Action : Scan of picture 
terminated; picture ignored by 
later phases. 

S IEM0731I PICTURE CHARACTER M APPEARS IN 

non- sterling picture yyyy. 

THIS PICTURE OCCURS IN STATE- 
MENT NUMBER xxx, AND POSSIBLY S IEM073 9I 
IN OTHER STATEMENTS. 

System Action : Scan of picture 
terminated; picture ignored by 
later phases. 

S IEM0732I FIELD MISSING IN STERLING PIC- 
TURE yyyy. THIS PICTURE OCCURS 
IN STATEMENT NUMBER XXX, AND 
POSSIBLY IN OTHER STATEMENTS. 



WRONG NUMBER OF DELIMITER CHAR- 
ACTERS M IN STERLING PICTURE 
yyyy. THIS PICTURE OCCURS IN 
STATEMENT NUMBER XXX, AND POS- 
SIBLY IN OTHER STATEMENTS. 

System Action : Scan of picture 
terminated; picture ignored by 
later phases. 

ILLEGAL CHARACTER OR ILLEGAL 
NUMBER OF CHARACTERS IN PENCE 
FIELD OF STERLING PICTURE yyyy. 
THIS PICTURE OCCURS IN STATE- 
MENT NUMBER XXX, AND POSSIBLY 
IN OTHER STATEMENTS. 

System Action : Scan of picture 
terminated; picture ignored by 
later phases. 

STATIC PICTURE CHARACTER $ S + 
- NOT AT EXTREMITY OF SUBFIELD. 
PICTURE IN ERROR IS yyyy. THIS 
PICTURE OCCURS IN STATEMENT 
NUMBER XXX, AND POSSIBLY IN 
OTHER STATEMENTS. 

System Action : Scan of picture 
continued with item ignored, 
but picture will be ignored by 
later phases. 



System Action : Scan of picture E IEM074 0I 
terminated; picture ignored by 
later phases. 

S IEM0733I ILLEGAL EDIT CHARACTERS AT 
START OF STERLING PICTURE yyyy. 
THIS PICTURE OCCURS IN STATE- 
MENT NUMBER XXX, AND POSSIBLY 
IN OTHER STATEMENTS. 

System Action : Scan of picture 

terminated; picture ignored by E IEM0741I 

later phases. 

S IEM0734I ILLEGAL CHARACTER OR ILLEGAL 
NUMBER OF CHARACTERS IN POUNDS 
FIELD OF STERLING PICTURE yyyy. 
THIS PICTURE OCCURS IN STATE- 
MENT NUMBER XXX, AND POSSIBLY 
IN OTHER STATEMENTS. 

System Action : Scan of picture 

terminated; picture ignored by E IEM07U2I 

later phases. 



MULTIPLE USE OF E K OR V IN 
PICTURE. PICTURE TRUNCATED AT 
ILLEGAL CHARACTER. PICTURE IN 

error is yyyy. this picture 

OCCURS IN STATEMENT NUMBER XXX, 
AND POSSIBLY IN OTHER STATE- 
MENTS. 



System Action : Picture trun- 
cated at point indicated 

CR OR DB INCORRECTLY POSITIONED 
IN SUBFIELD. PICTURE TRUNCATED 
AT THIS POINT. PICTURE IN 

error is yyyy. this picture 

OCCURS IN STATEMENT NUMBER XXX, 
AND POSSIBLY IN OTHER STATE- 
MENTS. 



System Action : Picture trun- 
cated at point indicated 

CR OR DB GIVEN FOR A NON- REAL, 
NON- NUMERIC OR FLOATING FIELD. 
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PICTURE TRUNCATED BEFORE CR OR 
DB IN PICTURE yyyy. THIS PIC- 
TURE OCCURS IN STATEMENT NUMBER 
XXX, AND POSSIBLY IN OTHER 
STATEMENTS . 

System Action ; Picture trun- 
cated at point indicated 



MENT NUMBER XXX, AND 
IN OTHER STATEMENTS. 



POSSIBLY 



System Action ; Scan of picture 
continued with item ignored, 
but picture will be ignored by 
later phases. 



S IEM07U5I ILLEGAL USE OF PICTURE CHARAC- 
TER z OR * IN PICTURE yyyy. 
THIS PICTURE OCCURS IN STATE- 
MENT NUMBER xxx, AND POSSIBLY 
IN OTHER STATEMENTS. 



S IEM07 51I NO MEANINGFUL CHARACTERS IN 

PICTURE yyyy. THIS picture 

OCCURS IN STATEMENT NUMBER xxx, 
AND POSSIBLY IN OTHER STATE- 
MENTS. 



S ystem Action ; Scan of picture 
continued with item ignored, 
but picture will be ignored by 
later phases. 



System Action : Scan of picture 
continued with item ignored, 
but picture will be ignored by 
later phases. 



S IEM0746I STERLING MARKER FOUND IN OTHER 
THAN FIRST POSITION IN PICTURE 
yyyy. THIS PICTURE OCCURS IN 
STATEMENT NUMBER XXX, AND POS- 
SIBLY IN OTHER STATEMENTS. 



S IEM075 2I ILLEGAL USE OF, OR ILLEGAL CHAR- 
ACTERS IN, STERLING PICTURE 
yyyy. THIS PICTURE OCCURS IN 
STATEMENT NUMBER XXX, AND POS- 
SIBLY IN OTHER STATEMENTS. 



System Action ; Scan of picture 
continued with item ignored, 
but picture will be ignored by 
later phases. 



System Action ; Scan of picture 
continued with item ignored, 
but picture will be ignored by 
later phases. 



S IEM0747I 



E IEM07U8I 



S IEM07U9I 



S IEM0750I 



STERLING PICTURE CHARACTERS 
FOUND IN NON-STERLING PICTURE. 
SCANNING OF PICTURE STOPPED. 

picture IN error is yyyy. THIS 

PICTURE OCCURS IN STATEMENT 
NUMBER XXX, AND POSSIBLY IN 
OTHER STATEMENTS. 

System Action : Scan of picture 
terminated; picture ignored by 
later phases. 

ILLEGAL USE OF SCALING FACTOR 
IN PICTURE. SCALING FACTOR 
ONWARDS DELETED. PICTURE IN 

error is yyyy. this picture 

OCCURS IN STATEMENT NUMBER XXX, 
AND POSSIBLY IN OTHER STATE- 
MENTS. 



S IEM0754I 



System Action : Picture 
cated at point indicated 



trun- 



ILLEGAL USE OF SCALING FACTOR 
IN PICTURE. SCAN OF PICTURE 
TERMINATED. PICTURE IN ERROR 

is yyyy. THIS picture occurs 

IN STATEMENT NUMBER XXX, AND 
POSSIBLY IN OTHER STATEMENTS. 

System Action ; Scan of picture 
terminated; picture ignored by 
later phases. 

ILLEGAL CHARACTER PRESENT IN 
CHARACTER STRING PICTURE yyyy. 
THIS PICTURE OCCURS IN STATE- 



S IEM0755I 



ILLEGAL CHARACTER IN PICTURE 
yyyy. THIS PICTURE OCCURS IN 
STATEMENT NUMBER XXX, AND POS- 
SIBLY IN OTHER STATEMENTS. 

System Action : Scan of picture 
continued with item ignored, 
but picture will be ignored by 
later phases. 

ILLEGAL USE OF DRIFTING EDITING 
SYMBOLS S $ + - IN PICTURE 
yyyy. THIS PICTURE OCCURS IN 
STATEMENT NUMBER XXX, AND POS- 
SIBLY IN OTHER STATEMENTS. 

System A ction ; Scan of picture 
continued with item ignored, 
but picture will be ignored by 
later phases. 

IMPLEMENTATION RESTRICTION. 
PRECISION TOO LARGE OR PICTURE 
TOO LONG IN PICTURE BEGINNING 
yyyy.. THIS PICTURE OCCURS IN 
STATEMENT NUMBER xxx, AND POS- 
SIBLY IN OTHER STATEMENTS. 

System Action : Scan of picture 
continued with item ignored, 
but picture wi 11 be ignored by 
later phases. 



T IEM0758I COMPILER ERROR IN PHASE FT. 

Explanation : Compiler error 
found in scan of dictionary 



S IEM0756I 
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System 



Action: 



terminated 



Compilation 



User Response ; Save relevant 
data. Call your local IBM rep- 
resentative. 



Explanation : The compiler has 
encomtered meaningless input 
to phase GA. 



System Action : 
terminated 



Compilation 



S IEM0759I 



S IEM0760I 



S IEM0761I 



S IEM0 762I 



S IEM0769I 



T IEM0770I 



IMPLEMENTATION RESTRICTION. 
STERLING CONSTANT EXCEEDS 
4166666666666. 13. 3L. HIGH 
ORDER DIGITS LOST DURING CON- 
VERSION TO DECIMAL. 

System Action : High order 
digits lost somewhere in the 
following conversion process: 
shift pounds field left one 
digit, double by addition. Add 
shillings field. Add result, 
doubled by addition, to result 
shifted left one digit. Add 
pence field. 

IMPLEMENTATION RESTRICTION. 
EXPONENT FIELD TOO LARGE IN 
PICTURE yyyy. THIS PICTURE 
OCCURS IN STATEMENT NUMBER xxx, 
AND POSSIBLY IN OTHER STATE- 
MENTS . 

S ystem Action : Reference to 
picture deleted 

PICTURE CHARACTER E OR K 
APPEARS WITHOUT AN EXPONENT 
FIELD FOLLOWING IT.. PICTURE IN 
ERROR IS yyyy. THIS PICTURE 
OCCURS IN STATEMENT NUMBER XXX, 
AND POSSIBLY IN OTHER STATE- 
MENTS. 

System Action : Reference to 
picture deleted from program 

User Response : Correct picture 

PICTURE CHARACTER E OR K IS NOT 
PRECEDED BY A DIGIT POSITION 
CHARACTER. PICTURE IN ERROR IS 
yyyy. THIS PICTURE OCCURS IN 
STATEMENT NUMBER XXX, AND POS- 
SIBLY IN OTHER STATEMENTS. 



System Action : 
picture deleted 



References to 



IMPLEMENTATION RESTRICTION. 
STATEMENT NUMBER xxx AS EXPAND- 
ED IS TOO LONG AND HAS BEEN 
DELETED. 

User Response : Simplify by 
splitting into two or more 
statements and recompile 

COMPILER ERROR IN INPUT TO 
PHASE GA IN STATEMENT NUMBER 

XXX 



S IEM0771I 



S IEM0778I 



S IEM0779I 



User Res p onse : Save relevant 
data. Call your local IBM rep- 
resentative. 

IMPLEMENTATION RESTRICTION. 
NESTING OF FORMAT LISTS IN 
STATEMENT NUMBER xxx EXCEEDS 
20. STATEMENT DELETED. 

AN INTERMEDIATE VARIABLE HAS 
BEEN CREATED IN READ INTO 
STATEMENT NUMBER xxx. THIS 
STATEMENT SPECIFIES FILE zzzz, 
WHICH HAS BEEN DECLARED WITH 
THE ENV( COBOL) ATTRIBUTE AND 
THE EVENT OPTION. THE EVENT 
OPTION HAS BEEN DELETED. 

Explanation : The intermediate 
variable has been created 
because there is a difference 
between the PL/I mapping and 
the COBOL mapping of the READ 
INTO variable. The READ INTO 
statement has been expanded 
into : 

READ INTO (Intermediate 

variable) ; 
Variable = Intermediate 

variable; 

The READ statement must have 
been completed before the 
assignment takes place. The 
EVENT option has been deleted 
to ensure that the READ state- 
ment is complete before proc- 
essing continues. 



System Action: 



Delete the 



EVENT option and continue 

User Response : Check the use 
of the EVENT option or of the 
COBOL file. 

AN INTERMEDIATE VARIABLE HAS 
BEEN CREATED IN WRITE/REWRITE 
FROM STATEMENT NUMBER XXX. 
THIS STATEMENT SPECIFIES FILE 
zzzz, WHICH HAS BEEN DECLARED 
WITH THE ENV( COBOL) ATTRIBUTE 
AND THE EVENT OPTION. THE 
EVENT OPTION HAS BEEN DELETED. 

Explanation : The intermediate 
variable has been created 
because there is a difference 
between the PL/I mapping and 
the COBOL mapping of the 
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WRITE/REWRITE FROM variable. 
The WRITE/REWRITE FROM state- 
ment has been expanded to: 



Intermediate 

variable = variable; 
WRITE/REWRITE FROM 

(Intermediate variable) ; 



The WRITE/REWRITE statement 
must have been completed before 
the intermediate variable can 
be deleted. The EVENT option 
has been deleted to ensure that 
the WRITE/REWRITE statement is 
complete before processing con- 
tinues. 



System A c tion : 



Delete 



the 



EVENT option and continue 



User Response : Check the use 
of the EVENT option or of the 
COBOL file. 

S IEM0780I THE USE OF COBOL FILE zzzz IN 
LOCATE STATEMENT NUMBER XXX MAY 
LEAD TO ERRORS WHEN THE RECORD 
IS PROCESSED. 

Explanation : The COBOL 
structure-mapping is not neces- 
sarily the same as the PL/I 
structure- mapping. 



System Action : 
is deleted 



Explanation : The attributes 
referred to do not exist in 
COBOL 



System Action : 
is deleted 



The statement 



The statement 



S IEM07 84I INVALID ARGUMENT LIST FOR ALLO- 
CATION FUNCTION IN STATEMENT 
NUMBER xxx HAS BEEN TRUNCATED 
OR DELETED. 

Explanation : Only a single 
argument can be given in the 
ALLOCATION function, and it 
must be one of the following: 

1. a major structure 

2. an unsubscripted array or 
scalar variable, not in a 
structure 

It must also be of nonbased 
CONTROLLED storage class. 

System Action : If the argument 
list begins with a valid oper- 
and,, that operand is used as 
the argument; otherwise, the 
argument list is deleted. 

W IEM0786I NAME, NOT VALUE, OF FUNCTION 
ZZZZ PASSED AS ARGUMENT IN 
STATEMENT NUMBER xxx 

S IEM07 87I INCORRECT NUMBER OF ARGUMENTS 
FOR FUNCTION ZZZZ IN STATEMENT 
NUMBER XXX 



User Response : 



Either 
statement must 



the 
be 



LOCATE 

replaced by a WRITE FROM state- 
ment, or a non-COBOL file must 
be used. 

S IEM0781I THE USE OF COBOL FILE zzzz IN 
READ SET STATEMENT NUMBER xxx 
MAY LEAD TO ERRORS WHEN THE 
RECORD IS PROCESSED. 

Explanation : The COBOL 
structure-mapping is not neces- 
sarily the same as the PL/I 
structure-mapping. 



System Action : 
is deleted 



The statement 



S IEM0782I 



User Response : Either the READ 
SET statement must be replaced 
by a READ INTO statement, or a 
non-COBOL file must be used. 

THE ATTRIBUTES OF zzzz USED IN 
RECORD I/O STATEMENT NUMBER XXX 
ARE NOT PERMITTED WHEN A COBOL 
FILE IS USED. 



T IEM0790I IMPLEMENTATION RESTRICTION. 
STATEMENT NUMBER XXX IS TOO 
LONG AND HAS BEEN TRUNCATED. 

Explanation : The first bytes 
of a statement to be moved out 
exceed the text block length. 

System Action : The statement 
is truncated. Compilation will 
not be completed. 



W IEM0791I 



User Response : Subdivide 

statement into two or more sep- 
arate statements, and recom- 
pile. 

NUMBER OF ARGUMENTS FOR ZZZZ 
STATEMENT NUMBER xxx INCONSIS- 
TENT WITH NUMBER USED ELSEWHERE 

Explanation : The number of 
arguments for zzzz has not been 
explicitly declared. 
•ELSEWHERE' refers either to 
the PROCEDURE or ENTRY state- 
ment for zzzz, or to a previous 
invocation of the function. 
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E IEM0792I IN STATEMENT NUMBER xxx IT IS 
IMPOSSIBLE TO CONVERT FROM THE 
ATTRIBUTES OF ARGUMENT NUMBER 
nnnn TO THOSE OF THE CORRES- 
PONDING PARAMETER IN ENTRY 
zzzz. THE PARAMETER DESCRIP- 
TION IS IGNORED. 



MAY NOT BE PASSED AS AN ARGU- 
MENT. STATEMENT DELETED. 

S IEM07 98I IN STATEMENT NUMBER xxx ARGU- 
MENT NUMBER nnnn OF ENTRY zzzz 
IS NOT PERMISSIBLE. THE STATE- 
MENT HAS BEEN DELETED. 



W IEM0793I 



S IEM079 4I 



S IEM0795I 



S IEM0796I 



S IEM0797I 



Explanation : Self explanatory. 
Examples of circumstances under 
which the error message is gen- 
erated are label arguments to 
data item parameters, array 
arguments to scalar parameters. 

System Action : The parameter 
description is ignored. If the 
parameter description is cor- 
rect, this will give rise to 
totally incorrect execution. 

User Respons e: Correct the pa- 
rameter description or the 
argument so that at least con- 
version is possible. 

IN STATEMENT NUMBER XXX ARGU- 
MENT NUMBER nnnn OF ENTRY zzzz 
IS A SCALAR AND THE CORRESPOND- 
ING PARAMETER IS A STRUCTURE. 

System Action : A temporary 
structure of the same type as 
the parameter description is 
created and the argument is 
assigned to each base element, 
converting where necessary. 

IN STATEMENT NUMBER XXX ARGU- 
MENT NUMBER nnnn OF ENTRY zzzz 
CONTAINS A SUBSCRIPTED VARIABLE 
WITH THE WRONG NUMBER OF SUB- 
SCRIPTS. THE STATEMENT HAS 
BEEN DELETED. 

DEFERRED FEATURE. IN STATEMENT 
NUMBER xxx ARGUMENT NUMBER nnnn 
OF ENTRY zzzz CONTAINS A CROSS- 
SECTION OF AN ARRAY OF 
STRUCTURES. STATEMENT DELETED. 

Explanation : The usage 
referred to is not supported by 
this version of the compiler. 
For details, refer to Appendix 
H of this publication. 

IN STATEMENT NUMBER XXX ARGU- 
MENT NUMBER nnnn OF ENTRY zzzz 
IS A GENERIC ENTRY NAME AND 
THERE IS NO CORRESPONDING ENTRY 
DESCRIPTION. STATEMENT DELET- 
ED. 

IN STATEMENT NUMBER XXX ARGU- 
MENT NUMBER nnnn OF ENTRY zzzz 
IS A BUILT-IN FUNCTION WHICH 



E IEM0799I 



W IEM0800I 



S IEM0801I 



W IEM0802I 



T IEM0803I 



Explanation : The message is 
generated, for example,, when 
scalar arguments are given for 
array built-in functions. For 
the ADDR function the message 
could indicate that the func- 
tion cannot return a valid 
result because the argument 
does not satisfy the require- 
ments of contiguous storage. 
This could occur., for example, 
if the argument was a cross- 
section of an array. 

IN STATEMENT NUMBER XXX A DUMMY 
ARGUMENT HAS BEEN CREATED FOR 
ARGUMENT NUMBER nnnn OF ENTRY 
ZZZZ . THIS ARGUMENT APPEARS 
IN A SETS LIST. 



System 



Action: 



The 



value 



assigned to the temporary argu- 
ment during the execution of 
the procedure is lost on return 
from the procedure. 

IN STATEMENT NUMBER xxx ARGU- 
MENT NUMBER nnnn IN ENTRY zzzz 
IS A SCALAR AND THE CORRESPOND- 
ING PARAMETER IS AN ARRAY. 



System Action : 



A temporary 
attributes of 



array with the 
the entry description is creat- 
ed and the scalar is assigned 
to each element of the array, 
converting the type if neces- 
sary. 

IN STATEMENT NUMBER XXX ARGU- 
MENT NUMBER nnnn IN ENTRY zzzz 
IS SCALAR CORRESPONDING TO AN 
ARRAY PARAMETER WITH * BOUNDS. 
THE STATEMENT HAS BEEN DELETED. 

IN STATEMENT NUMBER xxx ARGU- 
MENT NUMBER nnnn OF ENTRY zzzz 
DOES NOT MATCH THE PARAMETER. 
A DUMMY ARGUMENT HAS BEEN 
CREATED. 

IMPLEMENTATION RESTRICTION. 
STATEMENT NUMBER XXX CONTAINS 
TOO MANY NESTED FUNCTION REF- 
ERENCES. LIMIT EXCEEDED AT 
ARGUMENT NUMBER nnnn OF ENTRY 
zzzz 



System Action : 
terminated 



Compilation 
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User Response : Reduce depth of 
function call nesting- 



T IEM0818I COMPILER ERROR IN DICTIONARY 
ENTRY FOR STATEMENT NUMBER XXX 



T IEM0804I IMPLEMENTATION RESTRICTION. 
STATEMENT NUMBER XXX IS TOO 
LONG AND HAS BEEN DELETED. 



Explanation ; Compiler error in 
scanning source text 



System Action : 
terminated 



Compilation 



System Action : 
terminated 



Compilation 



User Response : 
ment size 



Reduce state- 



S IEM0 805I DEFERRED FEATURE. IN STATEMENT 
NUMBER XXX ARGUMENT NUMBER nnnn 
OF ENTRY zzzz IS AN EVENT. T IEM0819I 
STATEMENT DELETED. 

Explanation : A language fea- 
ture has been used that is not 
supported by this version of 
the compiler. For details, 
refer to Appendix H of this 
publication- 

S IEM0 806I IN STATEMENT NUMBER xxx ARGU- 
MENT NUMBER nnnn OF ENTRY zzzz 
IS NOT CONTROLLED BUT THE COR- 
RESPONDING PARAMETER IS. 

System A c tion : An execution T IEM0820I 
error will occur on entry to 
the called procedure 

S IEM0 807I IN STATEMENT NUMBER XXX ARGU- 
MENT NUMBER nnnn OF BUILT-IN 
FUNCTION ZZZZ IS AN ENTRY NAME. 
THE STATEMENT HAS BEEN DELETED. 



User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 

COMPILER ERROR IN CHECK/NOCHECK 
LIST ENTRY FOR STATEMENT NUMBER 
xxx 

Explanation : Compiler error in 
CHECF or NOCHECK list dictiona- 
ry entry 



System Action 
terminated 



Compilation is 



User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 

IMPLEMENTATION RESTRICTION. 
STATEMENT NUMBER xxx TOO LONG. 

Explanation : Statement length 
exceeds text-block size. 

System Action : Compilation is 
terminated 



T IEM0816I COMPILER ERROR. INVALID END OF 
STATEMENT NUMBER xxx 

Explanation : Compiler error in 
scan of input text 

System Action : Compilation is 
terminated 

User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 

T IEM0 817I COMPILER ERROR IN LABEL CHAIN 
FOR STATEMENT NUMBER xxx 



User 



Respons e: 



Subdivide 



statement and recompile 

E IEM0821I INVALID I 1EM zzzz IGNORED IN 
CHECK LIST IN STATEMENT NUMBER 
XXX 

Explanation : Valid items in 
CHECK lists are: statement 
labels, entry labels, and sca- 
lar, array, structure, or label 
variables. Subscripted varia- 
ble names, or data having the 
DEFINED attribute, are not 
allowed. 



Explanation : Compiler error in 
scanning labels of a statement 



Compilation is 



Save relevant 



System Action : 
terminated 

User Response 
data. Call your local IBM rep- 
resentative- Note that this 
error can be avoided by using 
only one label on the state- 
ment. 



W IEM082 3I IMPLEMENTATION RESTRICTION. NO 
ROOM FOR ZZZZ IN CHECK TABLE 
STATEMENT NUMBER xxx 

Explanation : The CHECK list 
table has overflowed 

System Action : The item men- 
tioned is ignored 

User Response : Do not CHECK so 
many items 
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T IEM0824I IMPLEMENTATION RESTRICTION. 
TOO MANY CHECKED ITEMS WITHIN 
STATEMENT NUMBER XXX 



assignment BY NAME - 
rect the error. 



and cor- 



Expl a nation ; A stack used to 
trace nested IF statements has 
overflowed 

System Action t Compilation is 
terminated 

User Response : Rephrase IF 
statements, or do not CHECK so 
many items. 

T IEM0825I COMPILER ERROR IN READ DATA 
STATEMENT NUMBER xxx 

Explanation : Compiler error in 
processing GET or READ DATA 
statement 

System Action : Compilation is 
terminated 



S IEM0833I 



S IEM0834I 



THE EXPANSION OF BY NAME 
ASSIGNMENT STATEMENT NUMBER xxx 
HAS RESULTED IN NO COMPONENT 
ASSIGNMENTS. 



System Action : The statement 
is treated as a null statement 

THE ASSIGNED OPERAND IN BY NAME 
ASSIGNMENT STATEMENT NUMBER XXX 
IS NOT A STRUCTURE OR AN ARRAY 
OF STRUCTURES. STATEMENT DEL- 
ETED. 

Explanation : In BY NAME 
assignment, the operand to the 
left of the equals sign must be 
a structure or an array of 
structures,. 



User Response : Avoid the error 
by supplying an explicit DATA 
list 

W IEM0 826I IMPLEMENTATION RESTRICTION. 
CHECK WILL NOT BE RAISED FOR 
zzzz IN STATEMENT NUMBER xxx 
BECAUSE OF EVENT OPTION 

Explanation : The compiler does 
not raise the CHECK condition 
for variables when they are 
changed in statements contain- 
ing an EVENT option. 

S IEM0 832I IN THE EXPANSION OF BY NAME 
ASSIGNMENT STATEMENT NUMBER XXX 
A SET OF MATCHING ELEMENTS HAS 
BEEN FOUND BUT THEY ARE NOT ALL 
BASE ELEMENTS. THE STATEMENT 
HAS BEEN DELETED. 

Explanation : For a valid com- 
ponent scalar assignment to 
result from a BY NAME structure 
assignment, it is necessary 
that all the scalar names der- 
ived from original structure 
name operands have identical 
qualification relative to the 
structure name originally spec- 
ified, e.g: DCL IS, 2T, 2U, 
3V; DCL 1W, 2T, 2U; W=S; gives 
rise to the component assign- 
ments W.T=S.T; W.U=S.U; the 
second of which is invalid. 

System Action : The BY NAME 
assignment statement is deleted 

User Response : Refer to the 
PL/I Reference Manual - rules 
for expansion of structure 



S IEM08 3 5I 



S IEM0836I 



ALL OPERANDS LEFT OF EQUAL SYM- 
BOL IN MULTIPLE STRUCTURE 
ASSIGNMENT STATEMENT NUMBER XXX 
ARE NOT STRUCTURES. STATEMENT 
DELETED 

Explanation : In multiple 
structure assignment, all the 
operands being assigned to must 
be structures. 

System Action : Replaces state- 
ment by a null statement and 
continues 

User Response : Break statement 
up into a series of separate 
statements 

ILLEGAL ARRAY REFERENCE IN 
STRUCTURE ASSIGNMENT OR EXPRES- 
SION. STATEMENT NUMBER XXX 
DELETED . 

Explanatio n: In PL/I, arrays 
of scalars are invalid operands 
in structure, or array of 
structure, expressions. 



T IEM08 37I COMPILER ERROR IN INPUT TO 
PHASE IEMHF. 

Explanation : Meaningless 
input. This message is also 
produced if an error is found 
in a DECLARE statement. In 
that case, a second message, of 
severity level severe, is 
issued giving details of the 
error. 

System Action : Compilation is 
terminated 



216 



E IEM0838I 



S IEM0848I 



S IEM0 84 9I 



User Response : Save relevant 
data. Call your local IBM rep- 
resentative- 



EXPRESSION RIGHT OF EQUAL SYM- 
BOL IN BY NAME ASSIGNMENT 
STATEMENT NUMBER xxx CONTAINS 
NO STRUCTURES. BY NAME OPTION 
DELETED. 

Explanation : In an assignment 
statement having the BY NAME 
option* the expression to the 
right of the equal symbol 
should contain at least one 
structure or array of struc- 
tures. 

IMPLEMENTATION RESTRICTION. 
THE EXPANSION OF STRUCTURE 
EXPRESSIONS IN STATEMENT NUMBER 
xxx HAS CAUSED A TABLE INTERNAL 
TO THE COMPILER TO OVERFLOW. 
STATEMENT DELETED. 

Explanation : The nesting of 
structure expressions in argu- 
ment lists is too deep. 



User Response : 
nesting. 



Decrease the 



AN EXPRESSION OR ASSIGNMENT IN 
STATEMENT NUMBER xxx EITHER 
CONTAINS SEPARATE STRUCTURES 
WITH DIFFERENT STRUCTURING, OR 
CONTAINS BOTH A STRUCTURE AND 
AN ARRAY OF STRUCTURES. THE 
STATEMENT HAS BEEN DELETED. 



S IEM0851I 



elements at the next level. 
Corresponding sets of contained 
elements must all be arrays of 
structures, structures, arrays, 
or scalars. The arrays must 
have the same dimensionality 
and bounds . 

User Response : Refer to the 
PL/I Reference Manual - the 
expansion of array and struc- 
ture expressions and assign- 
ments - and correct the pro- 
gram. 

IMPLEMENTATION RESTRICTION. 
STATEMENT NUMBER xxx IS TOO 
LONG AND HAS BEEN DELETED. 



Explanation : 






The expansion of 
structure expressions or 
assignments has given rise to a 
statement which exceeds one 
text block in length 



User Response : 
ment size 



Decrease state- 



S IEM085 2I A SUBSCRIPTED REFERENCE TO AN 
ARRAY OF STRUCTURES IN STATE- 
MENT NUMBER XXX HAS THE WRONG 
NUMBER OF SUBSCRIPTS. THE 
STATEMENT HAS BEEN DELETED. 

Explanatio n: Subscripted ref- 
erences to arrays must have 
subscript expressions equal in 
number to the dimensionality of 
the array 



S IEM0850I 



Explanation : PL/I does not 

allow separate structures with 

different structuring within 

the same expression or assign- S IEM08 53I 

ment. The (F) compiler does 

not support reference to both a 

structure and an array of 

structures within the same 

expression or assignment. 

User Response : Correct the 
source code. The two restric- 
tions quoted above are detailed 
in the PL/I Reference Manual 
and in Appendix H of this pub- 
lication, respectively. 

THE BOUNDS OF THE BASE ARRAYS 

OF THE STRUCTURE OPERANDS OF 

THE STRUCTURE EXPRESSION OR 

ASSIGNMENT IN STATEMENT NUMBER S IEM08 64I 

xxx ARE NOT THE SAME. THE 

STATEMENT HAS BEEN DELETED. 

Explanation : In a structure 
assignment or expression, all 
structure operands must have 
the same number of contained 



User Response : Correct 
scripted reference 



sub- 



DEFERRED FEATURE. A STRUCTURE 
ASSIGNMENT OR EXPRESSION IN 
STATEMENT NUMBER XXX INVOLVES 
CROSS SECTIONS OF ARRAYS. 
STATEMENT DELETED. 

Explanation : This version of 
the compiler does not support 
reference to cross sections of 
arrays of structures. 

User Response : Expand the 
statement in DO loops replacing 
***s in subscripts by the 
appropriate DO control varia- 
ble. 

IMPLEMENTATION RESTRICTION. 
NESTING OF ARRAY ASSIGNMENTS OR 
I/O LISTS TOO DEEP. STATEMENT 
NUMBER XXX DELETED. 

Explanation : Nesting of func- 
tions,, combined with size of 
arrays involved, is too great 
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User Response : Simplify by 
splitting into two or more 
statements 



S IEM0872I NUMBER OF SUBSCRIPTS SPECIFIED 
FOR LEFTMOST OPERAND zzzz IS 
NOT SAME AS DIMENSIONALITY. 
STATEMENT NUMBER xxx DELETED. 



S IEM0865I IMPLEMENTATION RESTRICTION. 
STATEMENT NUMBER XXX IS TOO 
LONG AND HAS BEEN DELETED. 

Explanation : Nesting of func- 
tions with array arguments 

involves a large expansion of S IEM0873I 
text 

User Response : Simplify by 
splitting into two or more 
statements 

S IEM0866I NEITHER MULTIPLE ASSIGNMENT 
COMMA NOR ASSIGNMENT MARKER 
FOUND IN CORRECT POSITION. S IEM0874I 
STATEMENT NUMBER XXX DELETED. 

E xplanation : An expression 
occurring on the left-hand side 
of an assignment must be con- 
tained within parentheses. 

S IEM0 867I NUMBER OF * SUBSCRIPTS SPECI- 
FIED FOR zzzz IS NOT THE DIMEN- 
SIONALITY OF THE LEFTMOST 
ARRAY. STATEMENT NUMBER XXX 
DELETED 

S IEM0875I 
Explanation : Array references 
in expressions must have the 
same dimensionality 

S IEM0868I BOUNDS OF ARRAY ZZZZ ARE NOT 
SAME AS FOR LEFTMOST ARRAY IN 
ASSIGNMENT OR EXPRESSION. 
STATEMENT NUMBER XXX DELETED. S IEM0876I 

Explanation : Array references 
in expressions must have the 
same bounds 

S IEM0 869I DIMENSIONS OF ARRAY ZZZZ ARE 
NOT THE SAME AS FOR LEFTMOST 
ARRAY IN ASSIGNMENT OR I/O 
EXPRESSION. STATEMENT NUMBER S IEM0877I 
xxx DELETED. 

Explanation : Array references 
in expressions must have the 
same dimensionality 

S IEM0870I ARGUMENT OF PSEUDO-VARIABLE S IEM0878I 
INVALID. STATEMENT NUMBER xxx 
IS DELETED. 



Explanation : The number of 

subscripts specified must be 

the same as the number of 
dimensions of the array 

ARGUMENTS OF PSEUDO-VARIABLE 
COMPLEX INCORRECT. STATEMENT 
NUMBER xxx DELETED. 

Explanation : Only one argument 
given for COMPLEX, or expres- 
sion illegally used as argument 
for pseudo- variable. 

SECOND ARGUMENT OF PSEUDO- 
VARIABLE COMPLEX OR FIRST 
ARGUMENT OF REAL, IMAG, OR 
UNSPEC EITHER IS NOT FOLLOWED 
BY A RIGHT PARENTHESIS OR IS AN 
EXPRESSION. STATEMENT NUMBER 
xxx DELETED. 

Explanation : Too many argu- 
ments given for this pseudo- 
variable,, or expression used as 
argument. 

ONSOURCE OR ONCHAR APPEARS IN A 
DIMENSIONED ARRAY ASSIGNMENT. 
STATEMENT NUMBER xxx DELETED. 

Explanation : ONSOURCE and 
ONCHAR may only appear in sca- 
lar assignments 

ARGUMENTS OF PSEUDO- VARIABLE 
SUBSTR INCORRECT. STATEMENT 
NUMBER xxx DELETED. 

Explanation : Only one argument 
given for SUBSTR, or expression 
illegally used as argument for 
pseudo-variable. 

UNSUBSCRIPTED ARRAY zzzz IN 
SCALAR ASSIGNMENT. STATEMENT 
NUMBER xxx DELETED. 



Explanation : Only scalars 
be assigned to scalars 



can 



STRUCTURE zzzz FOUND IN ARRAY 
OR SCALAR EXPRESSION. STATE- 
MENT NUMBER xxx DELETED. 



S IEM0871I 



Explanation : Arguments of 
pseudo-variables must be varia- 
bles which are not expressions 

SCALAR zzzz ON LEFT OF EQUAL 
SYMBOL IN ARRAY ASSIGNMENT. 
STATEMENT NUMBER XXX DELETED. 



Explanation : Structures may 
only be assigned to structures 

S IEM0879I PSEUDO-VARIABLE COMPLEX, REAL, 
IMAG, UNSPEC, COMPLETION, OR 
SUBSTR LACKS ARGUMENTS. STATE- 
MENT NUMBER xxx DELETED. 
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S IEM0880I 



S IEM0881I 



T IEM0882I 



Explanation ; Pseudo- variables 
COMPLEX, REAL, IMAG, UNSPEC, 
COMPLETION, and SUBSTR require 
arguments 



User Response ; Check whether 
the variable was intended as a 
pseudo-variable or whether it 
should have been declared oth- 
erwise 



NUMBER OF SUBSCRIPTS SPECIFIED 
FOR zzzz IS NOT SAME AS DIMEN- 
SIONALITY. STATEMENT NUMBER 
xxx DELETED. 

Explanation ; The number of 

subscripts specified must be 

the same as the number of 
dimensions of the array 

NUMBER OF DIMENSIONS IN REF- 
ERENCE TO zzzz IS NOT SAME AS 
THAT OF EXPRESSION OR ASSIGN- 
MENT. STATEMENT NUMBER XXX 
DELETED. 

COMPILER ERROR. INVALID INPUT 
TO PHASE HK AT STATEMENT NUMBER 

XXX 



T IEM0898I 



Explanation ; Illegal text 
been encountered 



has 



E IEM0899I 



E IEM0900I 



NO SUBSCRIPTS AFTER ISUB- 
DE FINED ITEM zzzz IN STATEMENT 
NUMBER XXX. 



Explanation ; 
compiler error 



System Action ; 
pila tion 



This 



xs 



Terminates com- 



User Response ; Save relevant 
data. Call your local IBM rep- 
resentative. 

MULTIPLIER IN ISUB DEFINING 
LIST FOR zzzz IN STATEMENT NUM- 
BER xxx IS NOT A SCALAR EXPRES- 
SION. 

Explanation ; A comma has been 
found within the iSUB multipli- 
er expression 

System Action ; Remainder of 
expression, after comma, 
ignored 



User Response : 
sion 



Rewrite expres- 



* USED AS SUBSCRIPT FOR ISUB 
DEFINED ITEM zzzz IN STATEMENT 
NUMBER xxx. ZERO SUBSTITUTED. 



System Action ; 
terminated 



Compilation 



User Response ; 
* 



Rewrite without 



User Response : 



Save relevant 



T IEM0896I 



S IEM0897I 



data. Call your local IBM rep- 
resentative. 

IMPLEMENTATION RESTRICTION. 
TOO MANY LEVELS OF ISUB NESTING 
IN STATEMENT NUMBER xxx 

Explanation ; Stack has over- 
flowed scratch core. The maxi- 
mum number of levels of nesting 
possible depends on the dimen- 
sionality of the arrays 
involved. 



System Action ; 
terminated 



Compilation 



User Response ; Reduce the num- 
ber of levels of nesting in the 
statement 

ISUB DEFINED OPERAND zzzz HAS 
NOT BEEN DECLARED AS AN ARRAY. 
I SUBS IN STATEMENT NUMBER xxx 
DELETED. 

User Response ; Declare defined 
item with dimension attribute 



E IEM09 01I ISUB NUMBER IN DEFINING LIST 
FOR ZZZZ IN STATEMENT NUMBER 
xxx IS TOO GREAT. MAXIMUM NUM- 
BER USED. 



E IEM09 2I 



T IEM0903I 



System Action ; 
is replaced by 
dimensions of 
array . 



The iSUB number 

the number of 

the defined 



User Re sp onse ; Rewrite defin- 
ing DECLARE statement 

WRONG NUMBER OF SUBSCRIPTS FOR 
ISUB DEFINED ITEM zzzz IN 
STATEMENT NUMBER XXX. SUB- 
SCRIPTS IGNORED OR ZERO SUP- 
PLIED. 

User Response ; Rewrite with 
correct number of subscripts. 
The error may be in the ref- 
erence to the defined item or 
in the defining DECLARE state- 
ment. 

COMPILER ERROR. ERROR DETECTED 
IN DEFINING ISUB LIST FOR ZZZZ 
IN STATEMENT NUMBER xxx 
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Explanation : Compiler error. 
Either (a) SUB not found where 
expected, or (b) SUBO found 
without a multiplier expres- 

s ion ,. 



System Action : 
terminated 



Compilation 



S IEM0906I 



User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 

STATEMENT DELIMITER FOUND WITH- 
IN SUBSCRIPT LIST FOR zzzz IN 
STATEMENT NUMBER xxx 

Explanation : The subscript 
scan routine has found a state- 
ment marker 



System Actio n: 



The present 



statement is dropped and the 
new one processed. Compilation 
will not be completed. 

User Response : Check text, but 
this is probably a compiler 
error, in which case save rele- 
vant data and contact your your 
local IBM representative. 

S IEM0907I IMPLEMENTATION RESTRICTION. 
STATEMENT NUMBER XXX IS TOO 
LONG AND HAS BEEN TRUNCATED. 

Explanation : Statement length 
exceeds text block size 

System Action : Statement is 
truncated. Compilation will 
not be completed,. 

User Response : Simplify state- 
ment 

S IEM1024I ILLEGAL USE OF zzzz IN STATE- 
MENT NUMBER XXX. A FIXED 
BINARY ZERO CONSTANT IS SUBSTI- 
TUTED. 

Explanation : A non-scalar 
identifier has been specified 
in a context that requires a 
scalar identifier. 

System Action : Replaces ille- 
gal identifier with arithmetic 
constant zero 



W IEM102 6I 



T IEM10 27I 



T IEM1028I 



T IEM1029I 



T IEM1040I 



System Action : Replaces ille- 
gal subscript with arithmetic 
constant zero 

STATEMENT NUMBER xxx IS AN 
UNLABELED FORMAT STATEMENT 

Explanation : A FORMAT state- 
ment should have a label 

THE SUBSCRIPTED STRUCTURE ITEM 
zzzz IS ILLEGALLY USED IN 
STATEMENT NUMBER XXX 

Explanation : The indicated 
structure item is used in a 
statement other than an assign- 
ment statement or an I/O data 
list,. 

System Action : Compilation is 
terminated 

COMPILER ERROR IN STATEMENT 
NUMBER xxx. ILLEGAL INPUT TEXT 
FOR PHASE IA. 



System Action : 
pilation 



Terminates com- 



User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 



IN STATEMENT NUMBER xxx AN 
ARRAY CROSS- SECTION APPEARS 
ILLEGALLY. 

Explanation : A feature has 
been used that is not supported 
by this version of the compil- 
er. For details, refer to 
Appendix H of this publication. 



System Action : 
pila tion 



Terminates com- 



DEFERRED FEATURE. STRUCTURE 
ARGUMENT IS BEING PASSED TO 
FUNCTION z 2ZZ IN STATEMENT NUM- 
BER xxx. 

Explanatio n: In this version 
of the compiler, structures may 
not be passed as arguments to 
built-in functions. 



System A ct ion : 
pilation 



Terminates com- 



S IEM1025I IDENTIFIER zzzz ILLEGALLY USED 
AS SUBSCRIPT IN STATEMENT NUM- 
BER xxx 



User Response : Rewrite pro- 
gram,, avoiding unsupported fea- 
ture. 



Explanation : A subscript has 
been used which is not a sca- 
lar, a scalar expression, or a 
constant 



T IEM1051I DEFERRED FEATURE. STRUCTURE 
ARGUMENT IS BEING PASSED TO 
PSEUDO-VARIABLE zzzz IN STATE- 
MENT NUMBER xxx. 
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Explanation ; In this version 
of the compiler, structures may 
not be passed as arguments to 
pseudo- variables. 



System Action ; 
pilation 



Terminates com- 



User Response ; Rewrite pro- 
gram, avoiding unsupported fea- 
ture. 

T IEM1056I INVALID ARGUMENT IS BEING 
PASSED TO ENTRY NAME zzzz IN 
STATEMENT NUMBER XXX. 



System Action ; 
pilation 



Terminates com- 



T IEM1057I DECIMAL INTEGER CONSTANT IS NOT 
BEING PASSED, AS REQUIRED, TO 
FUNCTION zzzz IN STATEMENT NUM- 
BER xxx. 

Explanation ; Argument to 
built-in function is not a 
decimal integer as expected. 



System Action ; 
pilation 



Terminates com- 



T IEM1058I ARRAY OR STRUCTURE ARGUMENT IS 
NOT BEING PASSED, AS REQUIRED, 
TO FUNCTION ZZZZ IN STATEMENT 
NUMBER XXX. 

Explanation ; Argument to 

built-in function is not an 

array or a structure,, as 
expect ed,. 



T IEM1061I TOO FEW ARGUMENTS ARE BEING 
PASSED TO FUNCTION ZZZZ IN 
STATEMENT NUMBER XXX. 



Explanation ; Too few arguments 
are being passed to a built-in 
function 



T IEM1062I 



T IEM1063I 



System Action ; 
pilation 



Terminates com- 



COMPILER ERROR. CORRECT GENER- 
IC SELECTION FOR FUNCTION ZZZZ 
IN STATEMENT NUMBER xxx HAS NOT 
BEEN ACHIEVED. 

Explanation ; Compiler, 
although being given a legal 
argument to a generic built-in 
function, is unable to make the 
selection. 

System Action ; Function result 
is set to zero and compilation 
terminated,. 



User Response; 



Save relevant 



data. Call your local IBM rep- 
resentative. 

COMPILER ERROR. UNEXPECTED 
SITUATION HAS ARISEN IN THE 
SCANNING OF THE ARGUMENTS 
PASSED TO FUNCTION ZZZZ IN 
STATEMENT NUMBER xxx 

Explanation ; Compiler is una- 
ble to correctly scan an argu- 
ment list 



System Action ; Terminates com- 
pilation 

User Response ; Correct state- 
ment 

T IEM1059I FIRST ARGUMENT BEING PASSED TO 
FUNCTION zzzz IN STATEMENT NUM- 
BER XXX SHOULD BE AN ARRAY. 

Explanation : Argument to 
built-in function is not an 
array as expected 

System Action ; Terminates com- 
pilation 

T IEM106 0I TOO MANY ARGUMENTS ARE BEING 
PASSED TO FUNCTION zzzz IN 
STATEMENT NUMBER XXX. 

Explanation ; Too many argu- 
ments are being passed to a 
built-in function 



System Action ; 
pilation 



Terminates com- 



T IEM1064I 



T IEM1065I 



System Action ; 
is set to zero 



Function result 



User Response ; Save relevant 
data. Call your local IBM rep- 
resentative. 



COMPILER ERROR. THE GENERIC 

FAMILIES ASSOCIATED WITH ENTRY 

NAME zzzz HAVE BEEN INCORRECTLY 

FORMED IN THE DICTIONARY. 

Explanatio n; The dictionary 
entry for one or more of the 
generic families is not a rec- 
ognizable entry type.. 



System Action : 
pilation 



Terminates com- 



User Response ; Save relevant 
data. Call your local IBM rep- 
resentative. 

NO GENERIC SELECTION POSSIBLE 
FOR THE ENTRY NAME zzzz IN 
STATEMENT NUMBER XXX. 
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Explanation : Incorrect use of 
the GENERIC attribute resulting 
in no selection being possible 



System Action ; 
pilation 



Terminates com- 



T IEM1066I 



T IEM1067I 



MORE THAN ONE GENERIC SELECTION 
IS POSSIBLE FOR THE ENTRY NAME 
zzzz IN STATEMENT NUMBER xxx. 

Explanation ; Incorrect use of 
the GENERIC attribute resulting 
in more than one selection 
being possible 

System Action ; Terminates com- 
pilation 

PSEUDO-VARIABLE zzzz APPEARS IN 
STATEMENT NUMBER XXX WITH AN 
ILLEGAL ARGUMENT. 

Explanation ; Argument to 
pseudo-variable cannot be con- 
verted to a legal type; or, 
structure argument being used 
with pseudo-variable. 



System Action ; 
pilation 



Terminates com- 



T IEM1068I 



AN ARRAY IS BEING PASSED TO 
FUNCTION zzzz IN STATEMENT NUM- 
BER xxx. THIS PRODUCES AN 
ARRAY EXPRESSION WHICH IS 
INVALID IN THIS QONTEXT. 

System Action ; Terminates com- 
pilation 



T IEM1071I PSEUDO-VARIABLE zzzz APPEARS IN 
STATEMENT NUMBER xxx WITH TOO 
MANY ARGUMENTS, 

System Action ; Terminates com- 
pilation 

T IEM1072I PSEUDO-VARIABLE zzzz APPEARS IN 
STATEMENT NUMBER XXX WITH TOO 
FEW ARGUMENTS. 

System Action ; Terminates com- 
pilation 

T IEM1073I COMPILER ERROR. CORRECT GENER- 
IC SELECTION FOR PSEUDO- 
VARIABLE zzzz IN STATEMENT 
NUMBER xxx HAS NOT BEEN 
ACHIEVED. 

Explanation ; Compiler error. 
Although being given a legal 
argument to a generic pseudo- 
variable, is unable to make the 
selection. 



System Action ; 
terminated 



Compilation 



T IEM1074I 



User Response ; Save relevant 
data. Call your local IBM rep- 
resentative, 

COMPILER ERROR. UNEXPECTED 
SITUATION HAS ARISEN IN THE 
SCANNING OF THE ARGUMENTS 
PASSED TO PSEUDO-VARIABLE zzzz 
IN STATEMENT NUMBER xxx 

Explanation ; Unable to cor- 
rectly scan an argument list of 
a pseudo-variable 



System Action ; 
terminated 



Compilation 



User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 

T IEM1076I COMPILER ERROR IN PHASE JD 

System Action ; Compilation 
terminates 



User Response ; Save relevant 
data. Call your local IBM rep- 
resentative. 



T IEM1078I 



IMPLEMENTATION RESTRICTION. 
THE NUMBER OF FAMILY MEMBERS 
AND ARGUMENTS ASSOCIATED WITH 
THE GENERIC ENTRY NAME yyyy 
EXCEEDS THE LIMITATION IMPOSED. 



Explanation ; 
implementation 
the number of 
and arguments 
GENERIC entry 



There is an 
restriction on 
family members 
associated with 
names. For 



details, refer to Appendix B of 
this publication. 



System Action : 
terminated 



Compilation 



User Response ; Divide the gen- 
eric family into two or more 
generic families. 

S IEM1082I STATEMENT NUMBER xxx CONTAINS 
AN INVALID USE OF AREA OR POIN- 
TER DATA. PART OR ALL OF THE 
STATEMENT HAS BEEN DELETED. 

Explanation : The statement 
contains an operation that: 

1. is not permitted for AREA 
or POINTER data, or 

2. can only be used with AREA 
or POINTER data but such 
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data is not the data spec- 
ified for the operation. 



Explanatio n; The TASK, EVENT, 
or LABEL variable may lose its 
validity in transmission. 



System Action ; Deletes the 
statement or clause responsible 
for the error. 



S IEM1088I THE SIZE OF AGGREGATE ZZZZ IS 
GREATER THAN 8, 388,, 607 BYTES. 
STORAGE ALLOCATION WILL BE 
UNSUCCESSFUL. 



User Response ; Correct the 
source code if necessary 

E IEM1104I THE DEFINING OF zzzz DECLARED 
IN STATEMENT NUMBER xxx 
INVOLVES DATA NOT ALLOWED FOR 
STRING CLASS OVERLAY DEFINING. 



S IEM108 9I 



S IEM1090I 



Explanation ; The message is 
generated when an array or 
structure size exceeds 2 23 -l 

System Action ; Array or struc- 
ture mapping for the item is 
terminated, but the compilation 
continues.. Execution of object 
decks containing references to 
the item will give incorrect 
results. 



User Response ; 
code 



Check source 



THE RELATIVE VIRTUAL ORIGIN OF 
AGGREGATE zzzz IS LESS THAN 
-8,388 w 608 BYTES.. STORAGE HAS 
NOT BEEN ALLOCATED, 

Explanation ; The low bounds of 
the arrays in the aggregate are 
too high. 

System Action ; The mapping of 
the aggregate is undefined, and 
will cause errors on execution. 

User Response ; Reduce the size 
of the aggregate, or reduce the 
value of the low bounds in the 
aggregate,. 

THE STRUCTURE zzzz DECLARED IN 
STATEMENT NUMBER XXX CONTAINS 
VARYING STRINGS AND MAY APPEAR 
IN A RECORD I/O STATEMENT 

Explanation ; VARYING strings 
in structures are not permitted 
in RECORD I/O statements. 

System Action ; The RECORD I/O 
statement is processed but the 
record will contain erroneous 
information. 



User Respons e: 
source code 



Correct the 



W IEM1092I THE TASKS, EVENTS OR LABELS 
CONTAINED IN STRUCTURE zzzz 
DECLARED IN STATEMENT NUMBER 
xxx MAY LOSE THEIR VALIDITY IF 
USED IN A RECORD I/O STATEMENT. 



Explanation ; The programmer's 
use of the DEFINED attribute 
contravenes the language rules 
concerned with the permitted 
data types and dimensionality 
of base and defined item. 

System Action ; Defined item 
mapped onto same storage as 
item defined on. Data and 
specification interrupts may 
occur at execution. 

User Response ; Refer to the 
PL/I Reference Manual - "The 
DEFINED Attribute" - and cor- 
rec t the error. 

E IEM1105I THE DATA CHARACTERISTICS OF 
zzzz DECLARED IN STATEMENT NUM- 
BER xxx DO NOT MATCH THOSE OF 
THE DEFINING BASE. 

Explanation ; For valid use of 
the DEFINED attribute, both the 
defined item and the base must 
be of the same defining class. 

System Action ; Defined item 
mapped onto same storage as 
item defined on. Data and 
specification interrupts may 
occur at execution- 

User Response ; Refer to the 
PL/I Reference Manual - "The 
DEFINED Attribute" - and cor- 
rect the error. 

T IEM1106I THE DIMENSIONALITY OF zzzz 
DECLARED IN STATEMENT NUMBER 
xxx IS NOT THE SAME AS THAT OF 
THE DEFINING BASE. 

Explanation ; With the excep- 
tion of the case of string 
class defining, if either the 
base or the defined item are 
arrays, then both the base and 
the defined item must be arrays 
with the same dimensionality. 

System Action ; Compilation is 
aborted after examining other 
uses of the DEFINED attribute 
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User Response ; Refer to the 
PL/I Reference Manual - "The 
DEFINED Attribute" - and cor- 
rect the error. 

T IEM1107I THE DEFINING OF zzzz DECLARED 
IN STATEMENT NUMBER xxx ILLE- 
GALLY INVOLVES VARYING STRINGS. 

Explanation : In use of the 
DEFINED attribute, neither the 
base nor the defined item may 
involve strings declared VARY- 
ING. 

System Action : Compilation is 
aborted after examining other 
uses of the DEFINED attribute. 

User Response : Refer to the 
PL/I Reference Manual - "The 
DEFINED Attribute" - and cor- 
rect the error. 



PL/I Reference Manual - "The 
DEFINED Attribute" - and cor- 
rect the error. 

E IEM1111I THE DEFINING OF zzzz DECLARED 
IN STATEMENT NUMBER xxx 
INVOLVES A STRUCTURE HAVING 
ELEMENTS NOT ALL OF THE SAME 
DEFINING CLASS. 

Explanation : In the case of 
string class overlay defining 
where the defined item or the 
base is a structure, then all 
the elements of the structure 
must be data of the same string 
defining class. 

System Action : Defined item 
mapped onto same storage as 
item defined on. Data and 
specification interrupts may 
occur at execution. 



E IEM1108I THE DEFINING OF zzzz DECLARED 
IN STATEMENT NUMBER xxx ILLE- 
GALLY INVOLVES DATA AGGREGATES 
THAT ARE NOT UNALIGNED. 



User Response : Refer to the 
PL/I Reference Manual - "The 
DEFINED Attribute" - and cor- 
rect the error. 



Explanation : In the case of 
string class overlay defining 
where either or both the base 
and the defined item are aggre- 
gates, then the aggregates must 
have the PACKED attribute. 

System Action : Defined item 
mapped onto same storage as 
item defined on. Data and 
specification interrupts may 
occur at execution. 



T IEM1112I THE DEFINING OF ZZZZ DECLARED 
IN STATEMENT NUMBER XXX ILLE- 
GALLY INVOLVES THE POS ATTRI- 
BUTE. 

Explanation : The POSITION 
attribute may only be declared 
for data of the string class 
which is overlay defined 



System A c tion : 
terminated 



Compilation is 



User Response : Refer to the 
PL/I Reference Manual - "The 
DEFINED Attribute" - and cor- 
rect the error. 



User Response : Refer to the 
PL/I Reference Manual - "The 
DEFINED Attribute" - and cor- 
rect the error. 



T IEM1110J THE DEFINING BASE OF ZZZZ 
DECLARED IN STATEMENT NUMBER 
xxx IS SHORTER THAN THE DEFINED 
ITEM. 



E IEM1113I THE STRUCTURE DESCRIPTION OF 
zzzz DECLARED IN STATEMENT NUM- 
BER XXX DOES NOT MATCH THAT OF 
THE DEFINING BASE. 



Explanation : In the case of 
string class overlay defining, 
the defined item must occupy a 
subset of the base storage. 

In the case of correspondence 
defining, the length of each 
defined element must not be 
greater than the length of each 
base element. 

System Action : Compilation is 
aborted after examining other 
uses of the DEFINED attribute 

User Response : Refer to the 



Explanation : Where a structure 
or an array of structures is 
defined on a structure or an 
array of structures, and it is 
not string class overlay defin- 
ing, then the two structure 
descriptions must be identical. 

System Action : Defined item 
mapped onto same storage as 
item defined on. Data and 
specification interrupts may 
occur at execution. 

User Response : Refer to the 
PL/I Reference Manual - "The 
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DEFINED Attribute" - 
rect the error. 



and cor- 



W IEM1114I IF THE BASE OF zzzz DECLARED IN 
STATEMENT NUMBER XXX IS ALLO- 
CATED WITH THE DECLARED 
EXTENTS,, THE DEFINING WILL BE 
IN ERROR. 

Explanation ; In the case of 
string class overlay defining, 
the defined item must occupy a 
subset of the base storage. If 
the base is of CONTROLLED stor- 
age class, its extents are not 
finally resolved until execu- 
tion time. 



E IEM1115I 



System Action : 
action 



No 



further 



User Response : Check that when 
the base is allocated it is of 
adequate size to accommodate 
the defined item 

THE DEFINING BASE OF zzzz 
DECLARED IN STATEMENT NUMBER 
xxx IS AN ARRAY FORMAL PARAM- 
ETER. IF THE MATCHING ARGUMENT 
IS AN ELEMENT OF AN ARRAY OF 
STRUCTURES OR A CROSS SECTION 
OF AN ARRAY, THE DEFINING WILL 
BE IN ERROR. 

Explanation : The base for 
string class overlay defining 
must occupy contiguous storage 



Explanation : A complex expres- 
sion has been used to initial- 
ize a STATIC string. This is a 
feature of PL/I not supported 
by this version of the compil- 
er. See Appendix H of this 
publication for details. 

System Action : The string is 
initialized to null. 

User Response : Amend source 
code. The restriction can be 
overcome by using an assignment 
statement instead of the INI- 
TIAL attribute. 

S IEM112 3I INITIAL VALUE FOR STATIC DATA 
ITEM zzzz IN nnnn IS NOT A 
CONSTANT. INITIALIZATION TER- 
MINATED . 

User Response : Use a constant 
in the INITIAL string. 

S IEM1125I ITERATION FACTOR USED IN INI- 
TIALIZATION OF STATIC ARRAY 
zzzz IN STATEMENT NUMBER xxx IS 
TOO LARGE. REPLACED BY ZERO. 



Explanation : I ter 
are converted by 
to REAL FIXED B 
default precision 
iteration factor r 
the message has a 
than 2 15 , and ther 
the def aul t precis 



ation factors 
the compiler 
INARY with a 
of 15,0. The 
eferred to in 
value greater 
efore exceeds 
ion. 



System Action : 
continues 



Comments and 



System Action : The iteration 
factor is replaced by zero 



User Response : 
of arguments 



Check validity 



S IEM1120I COMPILER ERROR. INVALID SIGN 
FOUND IN INITIAL VALUE LIST FOR 
zzzz IN STATEMENT NUMBER xxx. 
TREATED AS PLUS. 



User Response : Amend source 
code so that iteration factor 
does not exceed 2 15 . 



T IEM1200I COMPILER ERROR. ILLEGAL TRIPLE 
IN TEXT. CURRENT STATEMENT 
NUMBER xxx 



S IEM1121I 



User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 



COMPILER ERROR. INVALID MARKER 
FOUND IN INITIAL VALUE LIST FOR 
zzzz IN STATEMENT NUMBER xxx. 
INITIAL VALUE LIST TRUNCATED. 



Us er Re sponse ; 



Save relevant 



data. Call your local IBM rep- 
resentative. 

S IEM1122I UNSUPPORTED FEATURE. AN 
EXPRESSION HAS BEEN USED TO 
INITIALIZE STATIC STRING zzzz 
IN STATEMENT NUMBER XXX. 
STRING INITIALIZED TO NULL. 



Explanation : Phase LA is out 
of s tep in scanning text 

System Action : Recovery impos- 
sible. Compilation is termin- 
ated. 

User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 

T IEM15 6 9I IMPLEMENTATION RESTRICTION. 
SOURCE PROGRAM TOO LARGE. 

Explanation : The number of 
symbolic register names gener- 
ated by the code generation 
section of the compiler has 
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exceeded the maximum 
allowed 



number 



System Actio n: Compilation is 
terminated 



User Response : 



Programmer 



should break down the compila- 
tion into smaller modules 



label variable, or label con- 
stant has been used in an ini- 
tial value, TO or BY clause. 



System Action : 



Ignore the 



erroneous expression and use a 
fixed binary temporary 



T IEM1570I COMPILER ERROR. INVALID TRIPLE 
FOLLOWING WHILE PRIME TRIPLE. 

Explanation : Input to phase LG 
of compiler is erroneous. A 
WHILE' triple is not followed 
by CV or compiler label. 

System Action : Compilation is 
terminated 

User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 

T IEM1571I IMPLEMENTATION RESTRICTION. 
SOURCE PROGRAM TOO LARGE. 

Explanation : No more core is 
available for the stack of 
nested DO statements (both in 
source language and those gen- 
erated internally for array 
assignments etc. ) 

System Action : Compilation is 
terminated 

User Response : Simplify nest- 
ing so as to reduce number of 
levels. 

S IEM1572I ILLEGAL USE OF ARRAY OR STRUC- 
TURE VARIABLE IN DO STATEMENT 
NUMBER xxx 

Explanation : A non-scalar 
variable has been used as (1) 
the control variable, or (2) a 
control variable subscript, or 
(3) a loop limit or increment 
value. 

System Action : Generates an 
error stop at execution time 

S IEM1574I INVALID LOOP CONTROL EXPRESSION 
OR CONTROL VARIABLE SUBSCRIPT 
IN STATEMENT NUMBER XXX 
REPLACED BY FIXED BINARY TEM- 
PORARY. 

Explanation : Either something 
other than an arithmetic or 
string datum has been used as a 
subscript in the control varia- 
ble, or something other than an 
arithmetic or string datum. 



S IEM1575I DO LOOP CONTROL PSEUDO- VARIABLE 
IN STATEMENT NUMBER xxx HAS AN 
INVALID ARGUMENT. BINARY INTE- 
GER TEMPORARY ASSUMED. 



Explanation : An invalid argu- 
ment,, such as an expression or 
function, has been used in a 
pseudo-variable. 

System Action : Assigns invalid 
argument to binary temporary, 
and uses the latter as argu- 
ment, 

W IEM158 8I VARYING STRING HAS BEEN USED AS 
AN ARGUMENT TO ADDR FUNCTION IN 
STATEMENT NUMBER XXX 

Explanation : If the VARYING 
strirg is declared BASED, the 
ADDR result is invalid 

System Action : None 

User Response : Correct source 
program 

T I EMI 6 001 COMPILER ERROR. ILLEGAL ABSO- 
LUTE REGISTER NUMBER. STATE- 
MENT NUMBER xxx 

Explanatio n: Compiler error. 
Fixed binary arithmetic uses an 
unassigned general register 
number greater than 15, or 
floating arithmetic uses a 
floating register greater than 
6. 



System Action : 
terminated and 
printed. 



Compilation is 
error messages 



T IEM1601I 



User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 

IMPLEMENTATION RESTRICTION. 
STATEMENT NUMBER xxx REQUIRES 
MORE THAN 2 00 INTERMEDIATE 
RESULT DESCRIPTIONS. 

Explanation : Compiler limita- 
tion. The temporary result 
stack, which holds 2 00 items, 
is full. 
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System Action : Compilation is 
terminated and error messages 
printed 



S IEM1605I IN STATEMENT NUMBER xxx FIXED 
DECIMAL VARIABLE CANNOT BE COR- 
RECTLY CONVERTED TO BINARY DUE 
TO SIZE OF SCALE FACTOR. 



User Response; 



This error 
should only occur in very large 
statements. Divide the state- 
ment into two smaller state- 
ments, 

T IEM1602I COMPILER ERROR. INSUFFICIENT 
NUMBER OF TEMPORARY RESULT DES- 
CRIPTIONS. STATEMENT NUMBER 
XXX 

Explanation ; Compiler error. 
A temporary result is required 
but the temporary result stack 
is empty. This can happen if 
the triples are out of order or 
if extra triples have been 
inserted. 

System Action ; Compilation is 
aborted and error messages 
printed 

User Response ; Save relevant 
data. Call your local IBM rep- 
resentative. 

T IEM1603I COMPILER ERROR. COUNT OF FREE 
FLOATING REGISTERS IS WRONG. 
STATEMENT NUMBER xxx 

Explanation ; Compiler error in 
expression evaluation phase. 
Error in control blocks for 
floating registers. 

System Action ; Compilation is 
terminated and error messages 
printed 

User Response ; Save relevant 
data. Call your local IBM rep- 
resentative, 



Explanation ; Error in source 
program. When a fixed decimal 
variable is corrected to fixed 
binary, the magnitude of its 
scale factor is multiplied by 
3.31. If the original scale 
factor is >38 or <-38, then the 
fixed binary scale factor would 
be outside the range +127 to 
-128. 

System Action ; The fixed 
binary scale factor is set to 
+127 or -12 8, Processing con- 
tinues, 

User Response ; The data in the 
expression must be re-declared 
with more suitable scale fac- 
tors. 

T IEM160 6I COMPILER ERROR. FUNCTION NOT 
FOLLOWED BY RESULT DESCRIPTION. 
STATEMENT NUMBER XXX 

Explanation ; Compiler error. 
A function is not followed by 
TMPD or LEFT triples giving the 
result type. 

System Action ; Compilation is 
terminated and error messages 
printed 

User Response ; Save relevant 
data. Call your local IBM rep- 
resentative, 

S IEM1607I LABEL,, EVENT, FILE,, OR TASK 
ITEM ZZZZ IN STATEMENT NUMBER 
xxx IS USED IN AN EXPRESSION 
WHICH IS ILLEGAL. 



T IEM1604I 



COMPILER ERROR. SECOND OPERAND 
FOR RS OR SS INSTRUCTION IS IN 
A REGISTER. STATEMENT NUMBER 

XXX 

Explanation ; Compiler error in 
expression evaluation phase. 
Attempt to generate an RS or SS 
type pseudo-code instruction 
using a register as the 2nd 
operand. 

System Acti on ; Compilation is 
terminated and error messages 
printed. 

Us er Re s pon se ; Save relevant 
data. Call your local IBM rep- 
resentative. 



Explanation ; Error in source 
program. A label, event, file, 
or task datum cannot be used in 
an expression. Alternatively, 
this can be a compiler error 
when an unrecognizable dic- 
tionary entry is used in an 
expression, 

System Action ; Substitute a 
fixed binary (31,0) data item 
(if the illegal item occurs in 
an arithmetic expression) or a 
null bit string (if it occurs 
in a string expression) . Proc- 
essing is continued. 



User Response ; If error 
source program, correct it. 



in 



Appendix G: Diagnostic Messages 227 



E IEM1608I 



LT, LE,, GE f OR GT COMPARISON 
OPERATOR ILLEGALLY USED IN 
STATEMENT NUMBER XXX WITH COM- 
PLEX OPERANDS. REPLACED WITH 
EQUALS OPERATOR. 

Explanation ; Error in source 
program. The only legal com- 
parison between complex oper- 
ands is ■ = ". 

System Action : The operator is 
replaced with ' =• and process- 
ing continues 

User Response : Correct source 
program using either the ABS 
function or possibly the REAL 
and IMAG functions . 



T IEM1609I COMPILER ERROR. ILLEGAL DIC- 
TIONARY REFERENCE X" 00„ . ' ,. 
STATEMENT NUMBER XXX 

Explanation : Compiler error. 
The symbolic dictionary ref- 
erence is less than 25 6. 

System Action : Compilation 
terminated and error messages 
printed 

User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 

T IEM1610I COMPILER ERROR IN PHASE LW AT 
STATEMENT NUMBER xxx. INSUFFI- 
CIENT NUMBER OF TEMPORARY 
RESULT DESCRIPTIONS. 

Explanation : Compiler error. 
A temporary result is required 
but the temporary result stack 
is empty. This can happen if 
the triples are out of order or 
if extra triples have been 
inserted. 

System Action : Compilation is 
terminated and error messages 
printed 

User Response : Save relevant 
data, Call your local IBM rep- 
resentative. 

E IEM1611I IMPLEMENTATION RESTRICTION. A 
STRING RESULT LONGER THAN 32767 
IS PRODUCED BY CONCATENATE IN 
STATEMENT NUMBER XXX. STRING 
TRUNCATED TO LENGTH 32 767. 

Explanation : Maximum string 
length for this implementation 
is 3 2767. This may be exceeded 
during concatenation, because 
the length of the intermediate 



W IEM1612I 



S IEM1613I 



W IEM161UI 



result is the sum of the oper- 
and lengths. 

System Action : Compilation 
continues with string result 
length truncated to 32767 

User Response : Shorter strings 
must be used 

IMPLEMENTATION RESTRICTION IN 
STATEMENT NUMBER xxx. INTER- 
MEDIATE WORK SPACE IS OBTAINED 
MORE THAN 50 TIMES IN A STRING 
EXPRESSION. SOME WORK SPACE 
WILL NOT BE RELEASED UNTIL THE 
END OF THE BLOCK. 

Explanation : The intermediate 
work space is required each 
time a function returns a 
string result or each time a 
library module is called 

System Action : The first 50 
areas of work space are 
released. The remainder may 
not be released until the end 
of the block. Compilation con- 
tinues and execution is valid. 

User Response : Divide the 
string expression into several 
sub-expressions 

ILLEGAL USE OF ARRAY OR STRUC- 
TURE VARIABLE IN STATEMENT NUM- 
BER xxx 



Explanation : 
program 



Illegal source 



System Action : Severe error 
message and object program 
branch. Compilation continues, 
assuming scalar of same type if 
array,, or fixed binary (31,0) 
type if structure. 



User Response : 
blocks for array, 
structure into its 



Insert DO 

or break down 

components. 



IMPLEMENTATION RESTRICTION. A 
VARYING STRING RESULT LONGER 
THAN 32767 MAY BE PRODUCED BY 
CONCATENATE IN STATEMENT NUMBER 
xxx. STRING TRUNCATED TO 
LENGTH 327 67. 

Explanation : The sum of the 
maximum lengths of two strings 
in a concatenation operation 
exceeds the implementation res- 
triction of 32767. Since one 
or both of the operands is a 
VARYING string, it is not known 
at compile- time whether the 
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restriction will be exceeded at 
execution time. 



System Action ; The assignment 
is deleted from the text. 



System Action ; 



Compilation 



continues with string result 
maximum length truncated to 
32767. 



User Response ; Shorter strings 
must be used if the sum of the 
execution- time current lengths 
will ever exceed 3 2767* 

E IEM1615I SECOND ARGUMENT IN THE SUBSTR 
FUNCTION IN STATEMENT NUMBER 
XXX IS ZERO, WHICH IS INVALID. 
ZERO HAS BEEN REPLACED BY ONE. 



E IEM1616I 



SECOND ARGUMENT IN THE SUBSTR 
PSEUDO-VARIABLE IN STATEMENT 
NUMBER xxx IS ZERO,, WHICH IS 
INVALID. ZERO HAS BEEN 
REPLACED BY ONE. 



T IEM1617I COMPILER ERROR,. ILLEGAL RETURN 
FROM SCAN ROUTINE. STATEMENT 
NUMBER xxx 

Ex planation ; An illegal return 
of control has been made by the 
SCAN routine which supports the 
code generation phases . 



System Action ; 
terminated. 



Compilation is 



User Response ; Save relevant 
data. Call your local IBM rep- 
resentative. 



S IEM1618I PSEUDO- VARIABLE IN STATEMENT 
NUMBER XXX INCORRECTLY SPECI- 
FIED. REPLACED BY FIXED BINARY 
TEMPORARY. 

Explanation ; A pseudo-variable 
in the given source statement 
has been incorrectly specified,, 
e.g. has an incorrect number 
of arguments. 

System Action ; Ignores the 
pseudo-variable and uses a 
fixed binary temporary instead. 

S IEM1619I RIGHT HAND SIDE OF STATEMENT 
NUMBER XXX CANNOT BE ASSIGNED 
TO A PSEUDO- VARIABLE. ASSIGN- 
MENT IGNORED. 

Explanation ; The expression on 
the right-hand side of the 
specified statement cannot be 
assigned to a pseudo-variable, 
i.e. it is not an arithmetic 
or string datum. 



S IEM162 0I ;, IMAG' IN STATEMENT NUMBER xxx 
HAS REAL ARGUMENT. REPLACED BY 
ASSIGNMENT TO TEMPORARY FIXED 
BINARY INTEGER. 

Explanation ; The pseudo- 
variable • IMAG ' is meaningful 
only if its argument is of type 
complex. 

System Action ; A fixed binary 
temporary target is provided 
for the assignment or input 
data list ite'< and the pseudo- 
variable is ignored 

S IEM1621I ILLEGAL PSEUDO- VARIABLE 

ARGUMENT IN STATEMENT NUMBER 
XXX REPLACED BY BINARY TEMPORA- 
RY. 

Explanation ; A pseudo-variable 
in the specified statement has 
an illegal argument, i.e. one 
whose data type is not permis- 
sible in that context. 



System Action : 



A temporary 
legal in the 



whose type is 
context is used to replace the 
erroneous argument and the lat- 
ter is removed from the text 

S IEM16 22I FIRST ARGUMENT OF PSEUDO- 
VARIABLE SUBSTR IN STATEMENT 
NUMBER XXX IS NOT A STRING 
VARIABLE. ARGUMENT HAS BEEN 
CONVERTED TO STRING TEMPORARY 
AND THE ASSIGNMENT MADE 
THERETO. 

Explanation ; SUBSTR pseudo- 
variable cannot have a first 
argument which is not a string 
variable, 



System 



Action: 



Code 



is 



compiled to assign to a string 
temporary. The original argu- 
ment remains unchanged. 

T IEM1623I IMPLEMENTATION RESTRICTION. 
SOURCE PROGRAM TOO LARGE. 

Explanation ; The number of 
symbolic register names gener- 
ated by the code generation 
section of the compiler has 
exceeded the maximum number 
allowed 

System Action ; Compilation is 
terminated 



User Response ; 



Programmer 



Appendix G; Diagnostic Messages 229 



W IEM1625I 



S IEM1626I 



should break down the compila- 
tion into smaller modules 

PSEUDO-VARIABLE REAL IN STATE- 
MENT NUMBER XXX DOES NOT HAVE 
COMPLEX ARGUMENT. ARGUMENT HAS 
BEEN TREATED AS HAVING ZERO 
IMAGINARY PART. 



System Action : 



Code is gener- 
assignment to 



ated to perform 

the specified REAL argument 

ILLEGAL NEGATIVE SECOND ARGU- 
MENT IS BEING PASSED TO THE 
FUNCTION SUBSTR IN STATEMENT 
NUMBER xxx. AN EXECUTION ERROR 
WILL RESULT. 



System Action : 
to zero 



Result is set 



User Response : Check scale and 
precision of the first argument 
in ROUND function 

S IEM163 3I ILLEGAL NEGATIVE SECOND ARGU- 
MENT IS BEING PASSED TO THE 
PSEUDO- VARIABLE SUBSTR IN 
STATEMENT NUMBER XXX. AN EXE- 
CUTION ERROR WILL RESULT. 

S IEM1634I ILLEGAL NEGATIVE THIRD ARGUMENT 
IS BEING PASSED TO THE PSEUDO- 
VARIABLE SUBSTR IN STATEMENT 
NUMBER XXX. AN EXECUTION ERROR 
WILL RESULT. 



S IEM1627I 



S IEM1628I 



S IEM1629I 



T IEM1630I 



T IEM1631I 



ILLEGAL NEGATIVE THIRD ARGUMENT 
IS BEING PASSED TO THE FUNCTION 
SUBSTR IN STATEMENT NUMBER XXX. 
AN EXECUTION ERROR WILL RESULT. 

THE SUBSTRING SPECIFIED BY THE 
SECOND AND THIRD ARGUMENTS TO 
THE FUNCTION SUBSTR IN STATE- 
MENT NUMBER xxx DOES NOT LIE 
WITHIN THE FIRST ARGUMENT. AN 
EXECUTION ERROR WILL RESULT. 

THE SECOND ARGUMENT TO THE 
FUNCTION SUBSTR IN STATEMENT 
NUMBER xxx IS GREATER THAN THE 
LENGTH OF THE FIRST ARGUMENT. 
AN EXECUTION ERROR WILL RESULT. 

COMPILER ERROR IN 

CEIL/FLOOR/TRUNC IN-LINE FUNC- 
TION IN STATEMENT NUMBER xxx 

S ystem Action : Compilation is 
terminated 

User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 



S IEM16 3 5I 



COMPILER 
FUNCTION 
xxx 



ERROR IN MOD IN-LINE 
IN STATEMENT NUMBER 



System Action : Compilation is 
terminated 

User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 

W IEM1632I THE INVOCATION OF THE ROUND 
FUNCTION IN STATEMENT NUMBER 
xxx WILL ALWAYS GIVE A ZERO 
RESULT. 

Explanation : (p - q + r) is 
zero or negative, where 
p = precision, q = scale fac- 
tor, and r = rounding position. 



S IEM1636I 



S IEM1637I 



S IEM16 38I 



T IEM1639I 



T IEM1640I 



THE SUBSTRING SPECIFIED BY THE 
SECOND AND THIRD ARGUMENTS TO 
THE PSEUDO-VARIABLE SUBSTR IN 
STATEMENT NUMBER xxx DOES NOT 
LIE WITHIN THE STRING ZZZZ. AN 
EXECUTION ERROR WILL RESULT. 

THE SECOND ARGUMENT TO THE 
PSEUDO-VARIABLE SUBSTR IN 
STATEMENT NUMBER xxx IS GREATER 
THAN THE LENGTH OF THE STRING 
zzzz. AN EXECUTION ERROR WILL 
RESULT. 

THE THIRD ARGUMENT TO THE FUNC- 
TION SUBSTR IN STATEMENT NUMBER 
xxx IS GREATER THAN THE LENGTH 
OF THE FIRST ARGUMENT. AN EXE- 
CUTION ERROR WILL RESULT. 

THE THIRD ARGUMENT TO THE 
PSEUDO-VARIABLE SUBSTR IN 
STATEMENT NUMBER xxx IS GREATER 
THAN THE LENGTH OF THE STRING 
zzzz. AN EXECUTION ERROR WILL 
RESULT. 

COMPILER ERROR. INCORRECT 
INPUT TO SUBROUTINE 6 IN MODULE 
IEMMF IN STATEMENT NUMBER XXX. 



System Action : 
terminated 



Compilation is 



User Response : Save relevant 
data and call your local IBM 
representative. 

THE PARAMETER DESCRIPTION 
RELATING TO THE PASSING OF THE 
GENERIC ENTRY NAME zzzz DOES 
NOT MATCH ANY OF THE FAMILY 
MEMBERS . 

System Action : Terminates com- 
pilation 

User Response : Provide correct 
parameter description 
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W IEM1641I THE PARAMETER DESCRIPTION 
RELATING TO THE PASSING OF THE 
GENERIC ENTRY NAME zzzz DES- 
CRIBES THE ENTRY NAME'S RESULT 
TYPE RATHER THAN ARGUMENT TYPE. 
IF POSSIBLE, GENERIC SELECTION 
WILL BE MADE ON THE BASIS OF 
THIS RESULT TYPE. 



T IEM1648I COMPILER ERROR. FUNCTION REF- 
ERENCE MISSING FROM TEXT IN 
STATEMENT NUMBER xxx 



Explanatio n: Incorrect han- 
dling of text by previous 
phase. 



T IEM1642I 



User Response : Provide fuller 
parameter description 



THE PARAMETER DESCRIPTION 
RELATING TO THE PASSING OF THE 
GENERIC ENTRY NAME ZZZZ IS NOT 
SUFFICIENT FOR THE PURPOSES OF 
GENERIC SELECTION. 



T IEM164 9I 



System Action : 
pi 1 at ion 



Terminates com- 



User Res p onse : Save relevant 
data, Call your local IBM rep- 
resentative. 

COMPILER ERROR. INCORRECT FOR- 
MATION OF ARGUMENT LIST ASSO- 
CIATED WITH ENTRY NAME ZZZZ IN 
STATEMENT NUMBER XXX 



System Action : Terminates com- 
pilation 

User Response : Provide fuller 
parameter description 



Explanation : Incorrect han- 
dling of text by previous phase 

System Act ion : Terminates com- 
pilation 



T IEM164 3I COMPILER ERROR. THE PARAMETER 
DESCRIPTION RELATING TO THE 
PASSING OF THE GENERIC ENTRY 
NAME zzzz IS INCORRECTLY FORMED 
IN THE DICTIONARY. 



System Action : 
oilation 



Terminates com- 



T IEM1650I 



User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 

COMPILER ERROR. INCORRECT HAN- 
DLING OF ARGUMENT LIST ASSO- 
CIATED WITH ENTRY NAME zzzz IN 
STATEMENT NUMBER xxx 



User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 



T IEM16U4I COMPILER ERROR. THE GENERIC 
FAMILIES ASSOCIATED WITH ENTRY 
NAME zzzz HAVE BEEN INCORRECTLY 
FORMED IN THE DICTIONARY. 

Explanation : The dictionary 
entry for one or more of the 
generic families is not a rec- 
ognizable entry type. 

System Action : Terminates com- 
pilation 

User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 



Explanatio n: Incorrect han- 
dling of text by previous phase 



System Action : 
pilation 



Terminates com- 



User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 

T IEM1651I COMPILER ERROR. ARGUMENT REF- 
ERENCE MISSING FROM ARGUMENT 
LIST ASSOCIATED WITH ENTRY NAME 
zzzz IN STATEMENT NUMBER xxx 

Explanation : Incorrect han- 
dling of text by previous phase 



System Action : 
pilation 



Terminates com- 



T IEM1645I THE PARAMETER DESCRIPTION 
RELATING TO THE PASSING OF THE 
GENERIC ENTRY NAME ZZZZ RESULTS 
IN MORE THAN ONE POSSIBLE FAMI- 
LY MEMBER SELECTION. 

System Action : Terminates com- 
pilation 



User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 

T IEM1652I IMPLEMENTATION RESTRICTION. 
INVOCATIONS ARE NESTED BEYOND 
THE MAXIMUM PERMITTED LEVEL IN 
STATEMENT NUMBER xxx 



User Response : Provide fuller 
parameter description 



Explanation : Nesting level 
exceeds implementation limit 
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System Action ; Terminals com- 
pilation 

User Response : Reduce nesting 
level 

T IEM1653I IMPLEMENTATION RESTRICTION. 
SOURCE PROGRAM TOO LARGE. NUM- 
BER OF SYMBOLIC REGISTERS 
EXCEEDS LIMIT. 



T IEM1670I 



System Action : 
continue 



Comment 



and 



User Response : Correct source 
program if necessary 

STATEMENT NUMBER XXX HAS CAUSED 
A TABLE INTERNAL TO THE COMPIL- 
ER TO OVERFLOW. 



Explanation : Too many symbolic 
registers required 

System Action : Terminates com- 
pilation 



User Response : 
program 



Subdivide the 



T IEM1654I THE GENERIC PROCEDURE zzzz IS 
BEING INVOKED WITHOUT AN ARGU- 
MENT LIST IN STATEMENT NUMBER 

XXX 

System Action : Terminates com- 
pilation 

User Response : Supply argument 
list 

T IEM1655I IMPLEMENTATION RESTRICTION. 
TOO MUCH WORKSPACE REQUIRED FOR 
TEMPORARY RESULTS IN STATEMENT 
NUMBER xxx 



System Action : 
pilation 



Terminates com- 



T IEM165 6I 



User Response : Subdivide the 
statement in question into two 
or more separate statements. 

COMPILER ERROR. INCORRECT 
INPUT TO PHASE MF FOR COMPLE- 
TION BUILT-IN FUNCTION IN 
STATEMENT NUMBER XXX. 

Explanation : The compiler has 
encountered incorrect input to 
phase MF. 



System Action : 
terminated 



Compilation is 



E IEM1657I 



User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 



THE FILE zzzz, WHICH HAS BEEN 
DECLARED WITH THE COBOL OPTION, 
IS BEING PASSED AS AN ARGUMENT 
IN STATEMENT NUMBER XXX. 

Explanation : F Compiler res- 
triction: files with the COBOL 
option may not be passed as 
arguments. 



T IEM1671I 



T IEM16 8 0I 



T IEM1687I 



Explanation : Either the nest- 
ing of procedure arguments 
requiring dummies is too deep, 
or too many temporary results 
are required between the 
assignment of an argument 
expression to a dummy and the 
procedure call. 

System Action : Compilation is 
terminated 

User Response : Reduce complex- 
ity of argument expressions 



COMPILER ERROR NUMBER MP 
IN STATEMENT NUMBER xxx 



nnnn 



Explanation : This is a compil- 
er error 



System Action : 
terminated 



Compilation is 



User Response : Save relevant 
data. Call your local IBM rep- 
resentative,. 

COMPILER ERROR. TRIPLE OPERA- 
TOR NOT RECOGNIZED IN STATEMENT 
NUMBER xxx 



Explanation : Illegal 
from a previous phase 



System Action : 
terminated 



input 
Compilation is 



User Response : Save relevant 
data. Call your local IBM rep- 
resentative,. 

COMPILER ERROR. OPTIMIZED SUB- 
SCRIPT INCORRECTLY FORMED IN 
STATEMENT NUMBER xxx 



Explanation : Illegal 
from a previous phase 



input 



System Action : Compilation is 
terminated 

User Response : Save relevant 
data. Call your local IBM rep- 
resentative,. 



T IEM168 8I COMPILER ERROR. 



ARRAY 



NAME 
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ZZZZ INCORRECTLY DESCRIBED AS 
DEFINED IN STATEMENT NUMBER XXX 

Explanation : Array incorrectly 
described by a previous phase 
as having the DEFINED attribute 

System Action ; Compilation is 
terminated 

User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 

T IEM1689I COMPILER ERROR. ARRAY zzzz IS 
INCORRECTLY SUBSCRIPTED IN 
STATEMENT NUMBER XXX 

Explanation : Illegal input 
from a previous phase 

System Action : Compilation is 
terminated 

User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 

T IEM1691I IMPLEMENTATION RESTRICTION. 
SOURCE PROGRAM TOO LARGE. 

Explanation : Too many symbolic 
registers have been requested 

System Action : Compilation is 
terminated 

User Response : Subdivide pro- 
gram and recompile 

T IEM1692I IMPLEMENTATION RESTRICTION. 
SUBSCRIPT NESTED TO DEPTH 
GREATER THAN 50 LEVELS IN 
STATEMENT NUMBER XXX 

Explanation : Subscript nesting 
exceeds fifty levels 

System Action : Compilation is 
terminated 

User Response : Reduce amount 
of nesting and recompile 

T IEM1693I NUMBER OF SUBSCRIPTS ASSOCIATED 
WITH ARRAY zzzz IN STATEMENT 
NUMBER xxx IS INCORRECT. 

Explanation : The number of 
subscripts given does not agree 
with the declared dimensionali- 
ty of the array. 

System Action : Compilation is 
terminated 

User Response : Add or delete 
subscripts as appropriate 



S IEM1750I 



S IEM1751I 



W IEM175 2I 



E IEM1753I 



ZZZZ IS AN ILLEGAL OPERAND IN 
AN IF STATEMENT OR WHILE CLAUSE 
IN STATEMENT NUMBER XXX. IT 
HAS BEEN REPLACED BY A ZERO BIT 
STRING. 

THE IDENTIFIER zzzz IS AN ILLE- 
GAL ARGUMENT OF THE RETURN 
STATEMENT NUMBER xxx AND HAS 
BEEN DELETED. 

Explanation : Illegal arguments 
include arrays and structures. 

THE ATTRIBUTES OF THE EXPRES- 
SION USED IN THE RETURN STATE- 
MENT IN STATEMENT NUMBER XXX 
CONFLICT WITH THE ATTRIBUTES OF 
SOME OR ALL OF THE ENTRY POINTS 
OF THE CONTAINING PROCEDURE. 
AN EXECUTION FAILURE MAY OCCUR 
AT THIS STATEMENT. 

Explanation : After a call to a 
procedure through an entry 
point with POINTER* AREA or 
data attributes,, any RETURN 
statement encountered must 
return a value of type POINTER 
or AREA or of a data type 
compatible with the data attri- 
butes of the entry point. 

System Action : The ERROR con- 
dition is raised 

THE EXPRESSION USED IN THE 
RETURN STATEMENT IN STATEMENT 
NUMBER XXX AND THE ATTRIBUTES 
OF THE CONTAINING PROCEDURE ARE 
INCOMPATIBLE. EXECUTION OF 
THIS STATEMENT WILL RESULT IN A 
FAILURE. 

Explanation : After a call to a 
procedure through an entry 
point with POINTER,, AREA or 
data attributes, any RETURN 
statement encountered must 
return a value of type POINTER 
or AREA or of a data type 
compatible with the data attri- 
butes of the entry point. 



System Action : The ERROR 
dition is raised 



con- 



E IEM1754I THE EXPRESSION USED IN THE 
RETURN STATEMENT IN STATEMENT 
NUMBER XXX IS INVALID 

Explanation : The only permit- 
ted arguments are data types 
STRING,, POINTER, and AREA. 



System 



Action: 



Raise ERROR 
condition on execution of the 
statement. 
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W IEM1790 



S IEM1793I 



T IEM1794I 



S IEM1795I 



E IEM1796I 



W IEM1797I 



DATA CONVERSIONS WILL BE DONE 
BY SUBROUTINE CALL IN THE FOL- 
LOWING STATEMENTS yyyy 



User Response : Check to see if 
the conversion can be avoided 
or performed in line 

ILLEGAL ASSIGNMENT OR CONVER- 
SION IN STATEMENT NUMBER XXX. 
EXECUTION WILL RAISE THE ERROR 
CONDITION. 

Explanation : Illegal assign- 
ment or conversion in source 
statement, e.g. label to 
arithmetic 

System Action : An instruction 
is compiled which will cause 
execution to abort if the 
statement is executed 



COMPILER ERROR IN 
NUMBER xxx PHASE OE. 



STATEMENT 



Explanation : Compiler error 
caused by input text in bad 
format 

System Action : Compilation is 
terminated 

User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 



INVALID ITEM IN FREE 
NUMBER xxx 



STATEMENT 



Explanation : Variable in FREE 
statement is either not CON- 
TROLLED or not at level 1 

System Action : Error condition 
and message given at object 
time 

ASSIGNMENT OF AN ILLEGAL LABEL 
CONSTANT IN STATEMENT NUMBER 
xxx. 

Explanation : The label con- 
stant does not appear in the 
value list in the DECLARE 
statement for the label varia- 
ble. 



S ys t em Act i on : 



Accepts label 
in value list 



constant as if 

and continues compilation. 

CONVERSION OF NULL VALUES IN 
POINTER/OFFSET ASSIGNMENTS IS 
INVALID. NULLO HAS BEEN 
REPLACED BY NULL, OR NULL BY 
NULLO, IN STATEMENT NUMBER xxx 



S IEM1800I 



Explanation : A NULLO offset 
type constant has been assigned 
to a pointer, or a NULL pointer 
type constant to an offset. 
Conversion of null values is 
not allowed. The constant type 
has been corrected. 



System Action : The assignment 
is unaffected 



AN ERROR HAS OCCURRED WHEN CON- 
VERTING THE CONSTANT yyyy TO 
FLOATING-POINT. THE ERROR WAS 
DETECTED IN STATEMENT NUMBER 
xxx BUT CHECK ALL SIMILAR USES 
OF THIS CONSTANT. 



System 



Action: 



Truncates 



result. 



User Response : Change the con- 
stant and check its use in the 
given statement and elsewhere. 

S IEM1801I AN ERROR HAS OCCURRED IN THE 
CONVERSION TO FLOATING-POINT OF 
THE STERLING CONSTANT WHICH HAS 
DECIMAL PENCE FORM yyyy. THE 
ERROR WAS DETECTED IN STATEMENT 
NUMBER xxx BUT CHECK ALL SIMI- 
LAR USES OF THIS CONSTANT. 

User Response : Change the con- 
stant and check its use in the 
given statement and elsewhere. 

S IEM18 02I AN ERROR HAS OCCURRED WHEN CON- 
VERTING THE constant yyyy TO 
FIXED BINARY. THE ERROR WAS 
DETECTED IN STATEMENT NUMBER 
xxx BUT CHECK ALL SIMILAR USES 
OF THIS CONSTANT. 

User Response : Change the con- 
stant and check its use in the 
given statement and elsewhere. 

S IEM18 3I AN ERROR HAS OCCURRED IN THE 
CONVERSION TO FIXED BINARY OF 
THE STERLING CONSTANT WHICH HAS 
DECIMAL PENCE FORM yyyy. THE 
ERROR WAS DETECTED IN STATEMENT 
NUMBER xxx BUT CHECK ALL SIMI- 
LAR USES OF THIS CONSTANT. 

User Response : Change the con- 
stant and check its use in the 
given statement and elsewhere. 

S IEM18 0UI AN ERROR HAS OCCURRED WHEN CON- 
VERTING the constant yyyy TO 
FIXED DECIMAL. THE ERROR WAS 
DETECTED IN STATEMENT NUMBER 
xxx BUT CHECK ALL SIMILAR USES 
OF THIS CONSTANT. 
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System 



Action: 



Truncates S IEM1810I 



result. 



User Response : Change the con- 
stant and check its use in the 
given statement and elsewhere. 



AN ERROR HAS OCCURRED WHEN CON- 
VERTING the constant yyyy TO 
BIT STRING. THE ERROR WAS 
DETECTED IN STATEMENT NUMBER 
xxx BUT CHECK ALL SIMILAR USES 
OF THIS CONSTANT. 



S IEM1805I 



S IEM1806I 



S IEM1807I 



S IEM1808I 



S IEM1809I 



AN ERROR HAS OCCURRED IN THE 
CONVERSION TO FIXED DECIMAL OF 
THE STERLING CONSTANT WHICH HAS 
DECIMAL PENCE FORM yyyy. THE 
ERROR WAS DETECTED IN STATEMENT 
NUMBER xxx BUT CHECK ALL SIMI- 
LAR USE OF THIS CONSTANT. 

User Response : Change the con- 
stant and check its use in the 
given statement and elsewhere. 

AN ERROR HAS OCCURRED WHEN CON- 
VERTING THE CONSTANT yyyy TO 
DECIMAL NUMERIC FIELD. THE 
ERROR WAS DETECTED IN STATEMENT 
NUMBER xxx BUT CHECK ALL SIMI- 
LAR USES OF THIS CONSTANT. 

User Response : Change the con- 
stant and check its use in the 
given statement and elsewhere. 

AN ERROR HAS OCCURRED IN THE 
CONVERSION TO DECIMAL NUMERIC 
FIELD OF THE STERLING CONSTANT 
WHICH HAS DECIMAL PENCE FORM 
yyyy. THE ERROR WAS DETECTED 
IN STATEMENT NUMBER XXX BUT 
CHECK ALL SIMILAR USES OF THIS 
CONSTANT. 



User Esponse : Change the con- 
stant and check its use in the 
given statement and elsewhere. 



AN ERROR HAS OCCURRED WHEN CON- 
VERTING THE CONSTANT yyyy TO 
STERLING NUMERIC FIELD. THE 
ERROR WAS DETECTED IN STATEMENT 
NUMBER xxx BUT CHECK ALL SIMI- 
LAR USES OF THIS CONSTANT. 

User Response : Change the con- 
stant and check its use in the 
given statement and elsewhere. 

AN ERROR HAS OCCURRED IN THE 
CONVERSION TO STERLING NUMERIC 
FIELD OF THE STERLING CONSTANT 
WHICH HAS DECIMAL PENCE FORM 
yyyy. THE ERROR WAS DETECTED 
IN STATEMENT NUMBER XXX BUT 
CHECK ALL SIMILAR USES OF THIS 
CONSTANT . 

User Response : Change the con- 
stant and check its use in the 
given statement and elsewhere. 



S IEM1811I 



S IEM1812I 



S IEM1813I 



S IEM1814I 



S IEM1815I 



User Response : Change the con- 
stant and check its use in the 
given statement and elsewhere. 

AN ERROR HAS OCCURRED IN THE 
CONVERSION TO BIT STRING OF THE 
STERLING CONSTANT WHICH HAS 
DECIMAL PENCE FORM yyyy. THE 
ERROR WAS DETECTED IN STATEMENT 
NUMBER XXX BUT CHECK ALL SIMI- 
LAR USES OF THIS CONSTANT. 

User Response : Change the con- 
stant and check its use in the 
given statement and elsewhere. 

AN ERROR HAS OCCURRED WHEN CON- 
VERTING THE CONSTANT yyyy TO 
CHARACTER STRING. THE ERROR 
WAS DETECTED IN STATEMENT NUM- 
BER xxx BUT CHECK ALL SIMILAR 
USES OF THIS CONSTANT. 

User Response : Change the con- 
stant and check its use in the 
given statement and elsewhere. 

AN ERROR HAS OCCURRED IN THE 
CONVERSION TO CHARACTER STRING 
OF THE STERLING CONSTANT WHICH 
HAS DECIMAL PENCE FORM yyyy. 
THE ERROR WAS DETECTED IN 
STATEMENT NUMBER xxx BUT CHECK 
ALL SIMILAR USES OF THIS CON- 
STANT. 

User Response : Change the con- 
stant and check its use in the 
given statement and elsewhere. 

AN ERROR HAS OCCURRED IN THE 
CONVERSION OF THE CONSTANT yyyy 
TO PICTURED CHARACTER STRING. 
THE ERROR WAS DETECTED IN 
STATEMENT NUMBER xxx BUT CHECK 
ALL SIMILAR USES OF THIS CON- 
STANT. 

User Response : Change the con- 
stant and check its use in the 
given statement and elsewhere. 

AN ERROR HAS OCCURRED IN THE 
CONVERSION TO PICTURED CHARAC- 
TER STRING OF THE STERLING CON- 
STANT WHICH HAS DECIMAL PENCE 

form yyyy. the error was 

DETECTED IN STATEMENT NUMBER 
xxx BUT CHECK ALL SIMILAR USES 
OF THIS CONSTANT. 
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User Response : Change the con- 
stant and check its use in the 
given statement and elsewhere. 



S IEM1827I INVALID ARGUMENT TO DELAY 
STATEMENT NUMBER xxx. STATE- 
MENT IGNORED. 



S IEM1816I zzzz USED IN FILE OPTION IN 
STATEMENT NUMBER xxx IS NOT A 
FILE. OPTION HAS BEEN IGNORED. 
EXECUTION ERROR WILL RESULT 



T IEM1828I COMPILER ERROR. INCORRECT NUM- 
BER OF TMPDS FOLLOWING ZERO 
OPERAND IN STATEMENT NUMBER xxx 



E IEM1817I 



Explanation : Dictionary ref- 
erence of file triple was not 
file constant or file parameter 
code. 

System Action : Ignores option, 
but continues to scan state- 
ment. 

INVALID KEYTO OPTION zzzz 
IGNORED IN STATEMENT NUMBER XXX 



S IEM182 9I 



System Action : Compilation is 
terminated 

User Response : Save relevant 
data. Call your local IBM rep- 
resentative,. 

INVALID SCALAR EXPRESSION 
OPTION IN WAIT STATEMENT NUMBER 
xxx. MAXIMUM EVENT COUNT 
GIVEN. 



S IEM1818I 



S IEM1819I 



T IEM1823I 



Explanation : 
be scalar 
variable. 



KEYTO option must 
character string 



zzzz USED IN KEY/KEYFROM OPTION 
IN STATEMENT NUMBER XXX IS NOT 
A SCALAR. OPTION IGNORED. 

System Action : Ignores option 
but continues scan of statement 

zzzz USED IN THE IGNORE OPTION 
IN STATEMENT NUMBER XXX IS NOT 
A SCALAR. OPTION IGNORED. 

System Action : Ignores option 
but continues scan of statement 



User Response : 
variable 

COMPILER ERROR 
PHASE NJ/NK. 



Correct IGNORE 



DETECTED IN 



T IEM183 0I 



Explanation : The optional sca- 
lar expression in the WAIT 
statement cannot be converted 
to an integer. 

System Action : The number of 
event names in the list is 
assumed as the event count. 

COMPILER ERROR. INCORRECT 
INPUT TO PHASE NG IN WAIT 
STATEMENT NUMBER xxx, 

Explanation : The compiler has 
encountered incorrect input to 
phase NG and cannot continue. 



System Action ; 
terminated 



Compilation is 



User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 



S IEM182UI 



Explanation : NJ/NK found some 
unexpected input. Register 9 
in dump will indicate cause of 
error. 



System Action : 
pilation 



Terminates com- 



User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 



OPTIONS IN OPEN STATEMENT NUM- 
BER xxx ARE IN CONFLICT WITH 
PAGESIZE AND/OR LINESIZE. 



E IEM183 2I INVALID PAGE OPTION IGNORED IN 
STATEMENT NUMBER xxx 

E IEM18 33I INVALID LINE OPTION IGNORED IN 
STATEMENT NUMBER xxx 

E IEM1834I MULTIPLE COPY OPTIONS SPECIFIED 
IN STATEMENT NUMBER XXX. THE 
FIRST ONE IS USED. 

System Action : The first 
option only is used 

E IEM18 35I INVALID FILE OPTION IGNORED IN 
STATEMENT NUMBER XXX 



E IEM1825I 



INVALID REPLY OPTION IGNORED IN 
STATEMENT NUMBER xxx 



E IEM18 36I 



INVALID STRING OPTION IGNORED 
IN STATEMENT NUMBER xxx 



S IEM1826I INVALID MESSAGE IN DISPLAY 
STATEMENT NUMBER XXX. STATE- 
MENT IGNORED. 



S IEM18 37I NO FILE OR STRING SPECIFIED IN 
STATEMENT NUMBER xxx. STATE- 
MENT IGNORED. 
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Explanation ; No FILE or STRING 
given in GET /PUT statement 



DELETED FROM THE I/O DATA 
IN STATEMENT NUMBER xxx 



LIST 



E IEM1838I 
E IEM1839I 
E IEM1840I 
E IEM1841I 



INVALID TITLE OPTION IGNORED IN 
STATEMENT NUMBER XXX 

INVALID IDENT OPTION IGNORED IN 
STATEMENT NUMBER XXX 

INVALID LINESIZE OPTION IGNORED 
IN STATEMENT NUMBER XXX 

INVALID PAGE SIZE OPTION IGNORED 
IN STATEMENT NUMBER XXX 



S IEM186 2I AN EXPRESSION OR FUNCTION INVO- 
CATION IS AN ILLEGAL DATA ITEM 
AND HAS BEEN DELETED FROM THE 
DATA-DIRECTED I/O STATEMENT 
NUMBER XXX. 

E IEM1870I THE FORMAT LIST IN STATEMENT 
NUMBER XXX CONTAINS NO DATA 
FORMAT ITEMS AND WILL BE EXE- 
CUTED ONCE IF THE STATEMENT IS 
INVOKED. 



S IEM1843I 



T IEMl8tmi 



E IEM18U5I 
E IEM1846I 
S IEM1847I 

S IEM1848I 

W IEM1849I 



W IEM1850I 



S IEM1860I 



NO FILE SPECIFIED IN OPEN/CLOSE 
STATEMENT NUMBER XXX. ANY 
OPTIONS ARE IGNORED. 

COMPILER ERROR. INCORRECT NUM- 
BER OF TMPDS FOLLOWING ZERO 
OPERAND IN STATEMENT NUMBER XXX 

System Action ; Compilation is 
aborted 

User Response ; Save relevant 
data. Call your local IBM rep- 
resentative,. 

MULTIPLE DATA SPECIFICATIONS 
IGNORED IN STATEMENT NUMBER XXX 



INVALID SKIP OPTION IGNORED 
STATEMENT NUMBER XXX 



IN 



NO DATA SPECIFICATIONS GIVEN 
FOR GET STATEMENT NUMBER XXX. 
STATEMENT DELETED. 

NO DATA SPECIFICATIONS OR PRINT 
OPTIONS GIVEN FOR PUT STATEMENT 
NUMBER xxx.. STATEMENT DELETED. 

THE USE OF THE BUILT-IN FUNC- 
TION NULL IN STATEMENT NUMBER 
XXX IS INVALID; NULLO HAS BEEN 
SUBSTITUTED. CHECK ALL SIMILAR 
USES OF NULL. 



System Actio n; 
NULLO 



Substitute 



THE USE OF THE BUILT-IN FUNC- 
TION NULLO IN STATEMENT NUMBER 
XXX IS INVALID; NULL HAS BEEN 
SUBSTITUTED. CHECK ALL SIMILAR 
USES OF NULLO. 

System Action ; Substitute NULL 

THE ILLEGAL ITEM zzzz HAS BEEN 
DELETED FROM THE I/O DATA LIST 
IN STATEMENT NUMBER XXX 



S IEM1871I 



W IEM1872I 



S IEM1873I 



E IEM1874I 



W IEM1875I 



System Action ; At execution 
time, on finding no data format 
items, control passes out of 
the statement at the end of the 
format list. 

IN STATEMENT NUMBER xxx THE 
FORMAT LIST CONTAINS AN E OR F 
FORMAT ITEM WITH AN ILLEGAL 
SPECIFICATION. THE FORMAT ITEM 
HAS BEEN DELETED. 

IN STATEMENT NUMBER xxx AN E 
FORMAT ITEM HAS A FIELD WIDTH 
WHICH WOULD NOT PERMIT PRINTING 
OF A MINUS SIGN. 

IMPLEMENTATION RESTRICTION. IN 
STATEMENT NUMBER XXX AN A, B OR 
CONTROL FORMAT ITEM SPECIFIES 
AN EXCESSIVE LENGTH WHICH HAS 
BEEN REPLACED BY THE MAXIMUM OF 
32,767. 

IN STATEMENT NUMBER xxx AN 
INPUT STATEMENT CONTAINS A FOR- 
MAT ITEM WHICH MAY BE USED ONLY 
IN OUTPUT STATEMENTS. 

Explanation ; PAGE, SKIP, LINE, 
COLUMN, and format items A and 
B with no width specification, 
may be used only for output. 



System Action ; 
item deleted 



Invalid format 



IN STATEMENT NUMBER xxx AN E 

FORMAT ITEM HAS AN ILLEGAL 

SPECIFICATION IF USED FOR AN 
OUTPUT DATA ITEM. 

Explanation ; The specification 
violates the restriction that 
the field width w must be 
greater than s+n+2. 

System Action ; There will be 
an error at execution time. 



S IEM1861I 



AN ILLEGAL TEMPORARY RESULT OR 
SUBSCRIPTED ELEMENT HAS BEEN 



User Response ; correct speci- 
fication 
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T IEM2304I COMPILER ERROR. DICTIONARY 
ENTRY zzzz UNRECOGNIZED IN STA- 
TIC CHAIN. 



System Action : 
terminated 



Compilation is 



Explanation ; Due to a compiler 
error, a dictionary entry with 
an unrecognized code byte has 
been found in the static chain. 



System Action ; 
terminated 



Compilation is 



User Response ; Save relevant 
data. Call your local IBM rep- 
resentative. 



User Response ; Save relevant 
data. Call your local IBM rep- 
resentative. 

T IEM2702I COMPILER ERROR IN INPUT TO 
PHASE IEMRF, STATEMENT NUMBER 
xxx. BCT WITHOUT DICTIONARY 
REFERENCE AS DESTINATION. 

System Action ; Compilation is 
terminated 



T IEM2 305I COMPILER ERROR. DOPE VECTOR 
REQUESTED BY NON- STRING,, NON- 
STRUCTURE MEMBER zzzz 



User Response ; Save relevant 
data. Call your local IBM rep- 
resentative. 



Explanation ; Due to a compiler 
error, the allocation of a dope 
vector has been requested for 
an item which should never 
require one. 

System Action : Compilation is 
terminated 

User Response ; Save relevant 
data. Call your local IBM rep- 
resentative. 

T IEM2 352I THE AUTOMATIC VARIABLES IN THE 
BLOCK HEADED BY STATEMENT NUM- 
BER xxx ARE MUTUALLY DEPENDENT. 
STORAGE CANNOT BE ALLOCATED. 

Explanation : This message is 
generated when a number of 
automatic variables are mutual- 
ly dependent. It is not then 
possible to allocate storage in 
order of dependency. 

System Action : Compilation is 
terminated 

User Response : Rewrite state- 
ment, eliminating mutual depen- 
dency. 

T IEM2700I COMPILER ERROR IN INPUT TO 
PHASE IEMRF, STATEMENT NUMBER 
XXX. SPECIAL ASSIGNED REGISTER 
IN FORMAT/DATA LIST CODE CANNOT 
BE FOUND. 



System Action ; 
terminated 



Compilation is 



T IEM2703I COMPILER ERROR IN INPUT TO 
PHASE IEMRF, STATEMENT NUMBER 
xxx. LINK REGISTER IN BALR IS 
NOT ASSIGNED. 

System Action ; Compilation is 
terminated 

User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 

T IEM2704I COMPILER ERROR IN INPUT TO 
PHASE IEMRF, STATEMENT NUMBER 
xxx. *USNG' ITEM DOES NOT HAVE 
ASSIGNED REGISTER. 

System Action : Compilation is 
terminated 

User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 

S IEM2705I COMPILER ERROR IN INPUT TO 
PHASE IEMRF, STATEMENT NUMBER 
xxx. DROPPED REGISTER NOT 
ACTIVE . 

Explanat ion: Register number 
in field in DROP item is not in 
register table nor in storage. 

System Action : Continues com- 
pilation, ignoring DROP. Exe- 
cution is inhibited. 

User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 



User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 

T IEM2701I COMPILER ERROR. PHASE IEMRF, 
STATEMENT NUMBER xxx. PSTOR 
GREATER THAN 32K. 



S IEM2706I COMPILER ERROR IN INPUT TO 
PHASE IEMRF, STATEMENT NUMBER 
xxx. NOT ALL REGISTERS IN 
'DRPL' ITEM CAN BE FOUND. 



System Action ; Ignores 
item and continues 



DRPL 
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User Response ; Save relevant 
data. Call your local IBM rep- 
resentative- 



S IEM2707I COMPILER ERROR IN INPUT TO 
PHASE IEMRF, STATEMENT NUMBER 
XXX,. NOT ALL SYMBOLIC REG- 
ISTERS DROPPED AT END OF PROCE- 
DURE OR BEGIN BLOCK. 

Explanation ; One or more sym- 
bolic registers have been used 
in the PROCEDURE or BEGIN 
block, but no corresponding 
DROP has occurred. 

System Action ; Inserts in 
listing at end of block: the 
register number, the offset 
from register 9 at which the 
register is stored, and the 
words 'ERROR STOP'. 

User Response ; Save relevant 
data. Call your local IBM rep- 
resentative. 

S IEM2708I COMPILER ERROR IN INPUT TO 
PHASE IEMRF, STATEMENT NUMBER 
xxx. ASSIGNED REGISTER USED IN 
SOURCE FIELD IS NOT INITIAL- 
IZED. 

Explanation ; The assigned reg- 
ister should have a previous 
value (e.g. X in AR X,,Y or L 
Y,10(X) etc.), but none can be 
found. 



PHASE IEMRF, STATEMENT NUMBER 
xxx. MORE THAN ONE REGISTER 
PAIR REQUIRED IN AN INSTRUC- 
TION. 

System Action ; Compilation is 
terminated 

User Response ; Save relevant 
data.. Call your local IBM rep- 
resentative.. 

S IEM2711I COMPILER ERROR IN INPUT TO 
PHASE IEMRF, STATEMENT NUMBER 
xxx. ASSIGNED REGISTER IS 
STILL IN USE AT THE START OF A 
PROCEDURE. 

Explanation ; Assigned register 
status should be zero at the 
start of each procedure. 



System 



Action: 



Drops 



the 



assigned register and continues 
compilation 

User Response : Save relevant 
data. Call your local IBM rep- 
resentative, 

S IEM2712I COMPILER ERROR IN INPUT TO 
PHASE IEMRF, STATEMENT NUMBER 
XXX. IPRM/IPRM' OR EPRM/EPRM 1 
PAIRS ARE NOT MATCHED IN PRE- 
VIOUS STATEMENT. 

System Action ; Compilation is 
continued 



System Action ; Register 13 is 
used instead of the correct 



number, 
tinued. 



and compilation is con- 



User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 

S IEM2709I COMPILER ERROR IN INPUT TO 
PHASE IEMRF, STATEMENT NUMBER 
XXX. SYMBOLIC REGISTER SHOULD 
HAVE PREVIOUS VALUE, BUT HAS 
NOT. 

Explanation : Register X in an 
instruction such as AR X,Y, or 
L Y,10(X) # has not been set up 
previous ly- 

System Action ; Inserts reg- 
ister 12 and continues compila- 
tion. 

User Response ; Save relevant 
data. Call your local IBM rep- 
resentative- 

T IEM2710I COMPILER ERROR IN INPUT TO 



User Response ; Save relevant 
data,. Call your local IBM rep- 
resentative. 

S IEM2816I ILLEGAL ENVIRONMENT OPTION IN 
STATEMENT NUMBER XXX 

System Action ; Remainder of 
environment attributes ignored. 

S IEM2817I COMPILER ERROR. INVALID ATTRI- 
BUTE CODE IN STATEMENT NUMBER 
xxx 

Explanation ; An invalid attri- 
bute marker has been found in 
the dictionary entry corres- 
ponding to the file attributes 
in the statement specified 

System Action ; Ignores the 
rest of the entry 

User Response : Save relevant 
data. Call your local IBM rep- 
res entative. 

CONFLICTING ATTRIBUTE IN STATE- 
MENT NUMBER XXX IGNORED. 



S IEM2818I 
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Explanation ; An attribute 
other than 'ENVIRONMENT* clash- 
es with previously declared 
attributes in the specified 
statement 



System Action : 
attribute. 



Ignores this 



S IEM28 2 5I 



System Action : Remainder of 
ENVIRONMENT attribute ignored 



CONFLICTING OPTIONS IN ENVIRON- 
MENT ATTRIBUTE IN STATEMENT 
NUMBER xxx. REST OF ENVIRON- 
MENT IGNORED.. 



S IEM2819I ERRONEOUS USE OF PARENTHESIS IN 
ENVIRONMENT OPTION IN STATEMENT 
NUMBER xxx 

Explanation : Misplaced paren- 
thesis in ENVIRONMENT attribute 



System Action : DECLARE control 
block is constructed from 
attributes which have already 
been processed. The rest are 
ignored. 



System Action : Remainder of 
ENVIRONMENT attribute ignored 



User Response : Correct ENVIR- 
ONMENT option 



S IEM2820I ERRONEOUS USE OF COMMA IN EN- 
VIRONMENT OPTION IN STATEMENT 
NUMBER XXX 



Explanation : Misplaced 
in ENVIRONMENT attribute 



comma 



System Action : Remainder of 
ENVIRONMENT attribute ignored 



S IEM2826I IMPLEMENTATION RESTRICTION. 
DIRECT FILE zzzz DECLARED IN 
STATEMENT NUMBER XXX MUST HAVE 
AN ORGANIZATION SUB FIELD IN THE 
ENVIRONMENT ATTRIBUTE. 



System Action i 
action, but 
fail- 



No compile-time 
execution will 



S IEM2 821I ILLEGAL CHARACTER IN KEYWORD IN 
ENVIRONMENT OPTION IN STATEMENT 
NUMBER XXX 

Explanation : Invalid keyword 
in ENVIRONMENT attribute 

System Action : Remainder of 
ENVIRONMENT attribute ignored 

S IEM2 822I FIELD TOO LARGE IN ENVIRONMENT 
OPTION IN STATEMENT NUMBER xxx 

Explanation : Field in item in 
ENVIRONMENT attribute too large 

System Action : Remainder of 
ENVIRONMENT attribute ignored 

S IEM2 823I ERROR IN FORMAT OF ENVIRONMENT 
ATTRIBUTE IN STATEMENT NUMBER 
XXX 

Explanation : Format of item in 
ENVIRONMENT attribute incorrect 

System Action : Remainder of 
ENVIRONMENT attribute ignored 

S IEM2 82UI CONFLICT BETWEEN ENVIRONMENT 
ATTRIBUTE AND OTHER ATTRIBUTES 
IN STATEMENT NUMBER XXX 

Explanation : An option in the 
ENVIRONMENT attribute clashes 
with either another ENVIRONMENT 
option or with a declared 
attribute. 



W IEM2827I 



W IEM2828I 



W IEM2829I 



S IEM2833I 



User Response : Provide ENVIR- 
ONMENT attribute 

A D COMPILER OPTION HAS BEEN 
DECLARED IN THE ENVIRONMENT 
LIST IN STATEMENT NUMBER xxx. 
IT HAS BEEN IGNORED. 

ENVIRONMENT OPTIONS CLTASA AND 
CLT360 HAVE BOTH BEEN DECLARED 
IN STATEMENT NUMBER xxx. THE 
SECOND ONE LISTED WILL BE 
IGNORED. 

IN STATEMENT NUMBER xxx THE 
PARAMETER SPECIFIED IN THE 
INDEXAREA OPTION IS GREATER 
THAN 32767 AND HAS BEEN 
IGNORED. 

Explanatio n: If the parameter 
is not specified or is outside 
the permitted range, data man- 
agement uses as much main stor- 
age as is required for the 
master index. 



COMPILER ERROR. OPERAND OF 
OR SL NOT LABEL. 



CL 



Explanati on: The dictionary 
entry referenced after a com- 
piler label or statement label 
marker in the text is not in 
fact a label 

System Action : The label defi- 
nition is ignored. 
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T IEM2834I 



User Response ; Save relevant 
data. Call your local IBM rep- 
resentative,. 



COMPILER ERROR. 
PSEUDO-CODE OPERATION. 



INVALID 



Explanation ; The input text 
contains a marker which is not 
valid 

System Action ; Compilation is 
terminated 

User Response ; Save relevant 
data. Call your local IBM rep- 
resentative. 



Explanation ; Use of a pseudo- 
register accompanied by literal 
offset has been called for by 
compiled code. This cannot be 
assembled owing to the manner 
in which pseudo-register 
relocation is performed. 



System 



Action: 



The literal 



offset is ignored. 



User Response ; Save relevant 
data. Call your local IBM rep- 
resentative. 

S IEM28 53I COMPILER ERROR. REFERENCE TO 
INVALID DICTIONARY ENTRY. 



S IEM2835I 



T IEM2836I 



COMPILER ERROR. 
LABEL CHAIN ERROR. 



SUBSCRIPTED 



Explanation ; Subscripted 
labels in the source program 
result in the creation of 
chains of dictionary entries. 
An error in the chaining causes 
this message to appear. 

System Action ; The label defi- 
nition is ignored 

User Response ; Save relevant S IEM28 54I 
data. Call your local IBM rep- 
resentative. 

IMPLEMENTATION RESTRICTION. 
SOURCE PROGRAM TOO LARGE. 

Explanation ; Not enough 
scratch core is available for 
the generated label number 
table created by this phase. 
The condition arises when a 
large number of such labels 
have been used, and this in 
turn is related to the size of 
the program. 



System Action : 
is terminated 



The compilation S IEM28 55I 



Explanation ; A dictionary ref- 
erence in the input text does 
not correspond to a legal dic- 
tionary entry. 

System A c tion ; An offset of 
zero is assembled into the out- 
put text. 



User Response : 



Save relevant 



data. Call your local IBM rep- 
resentative. 



COMPILER ERROR. INVALID 
TIONARY REFERENCE OFFSET. 



DIC- 



Explanatio n; A dictionary ref- 
erence in the input text cor- 
responds to a valid dictionary 
entry, but the dictionary ref- 
erence offset is not valid. 

System Action ; An offset of 
zero is assembled into the out- 
put text. 



User Response : 



Save relevant 



data. Call your local IBM rep- 
resentative. 

COMPILER ERROR. REQUESTED OFF- 
SET NOT ASSIGNED. 



User Response ; Break down the 
program into smaller modules 

T IEM28 37I COMPILER ERROR. MULTIPLY 
DEFINED LABEL OR INVALID LABEL 
NUMBER. 

System Action ; Compilation is 
terminated 

User Response ; Save relevant 
data. Call your local IBM rep- 
resentative. 



S IEM2852I 



COMPILER 
SET IN 
ERENCE. 



ERROR. NON-ZERO OFF- 
PSEUDO-REGISTER REF- 



Explanation ; Although implied 
by a dictionary reference in 
the text„ storage has not been 
allocated 



System Action; 



An offset of 



zero is assembled into the out- 
put text. 

User Response ; Save relevant 
data. Call your local IBM rep- 
resentative. 

S IEM2 8 65I IMPLEMENTATION RESTRICTION. 
SOURCE PROGRAM CONTAINS TOO 
MANY BLOCKS AND/OR CONTROLLED 
VARIABLES. 
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Explanation : The compiler 
allocates a pseudo-register 
entry for each block and CON- 
TROLLED variable in the source 
program. The maximum number of 
such entries is 1,024 . 



S ystem Action 



No pseudo- 
registers are allocated for 
items after the limit has been 
reached. 



and the two are then joined by 
the Linkage Editor, two Exter- 
nal Symbol Dictionary entries 
may have the same name . 



System Action : None 

T IEM2881I COMPILER ERROR IN STATEMENT 
NUMBER xxx. INVALID PSEUDO- 
CODE OPERATION. 



W IEM2866I 



E IEM2867I 



W IEM2 868I 



User Response : Reduce number 
of blocks, or CONTROLLED 
variables, in program to less 
than 1,0 25. 

THIS PL/I COMPILATION HAS GEN- 
ERATED EXTERNAL NAMES IN WHICH 
THE FIRST LEADING CHARACTER OF 
THE EXTERNAL PROCEDURE NAME HAS 
BEEN REPLACED BY A SPECIAL 
CHARACTER. 



Explanation : 
cedure name 
character chan 
as a base for 
for External 
entries. If 
happens in ano 
and the two a 
the Linkage Ed 
nal Symbol D 
may have the s 



The external pro- 
with its first 
ged is being used 
generating names 
Symbol Dictionary 
the same thing 
ther compilation, 
re then joined by 
itor, two Exter- 
ictionary entries 
ame name. 



System Action : None 

IMPLEMENTATION RESTRICTION. 
EXTERNAL NAME zzzz HAS BEEN 
TRUNCATED TO 7 CHARACTERS. 



Explanation : 
tifiers are 
characters 



External 
restricted 



iden- 
to 7 



System Action : Name of ESD 
entry truncated by taking first 
4 and last 3 characters; 
phase then carries on normally. 

User Response : Shorten the 
name. 

THIS PL/I COMPILATION HAS GEN- 
ERATED EXTERNAL NAMES IN WHICH 
THE SECOND LEADING CHARACTER OF 
THE EXTERNAL PROCEDURE NAME HAS 
BEEN REPLACED BY A SPECIAL 
CHARACTER. 

Explanation : The external pro- 
cedure with its second charac- 
ter changed is being used as a 
base for generating names for 
External Symbol Dictionary 
entries. If the same thing 
happens in another compilation, 



Explanation : The input text 
contains a marker which is not 
valid. 

System Action : Compilation is 
terminated 

User Response : Save relevant 
data. Call your local IBM 
representative. 

S IEM288 2I COMPILER ERROR IN STATEMENT 
NUMBER xxx. OPERAND OF DC CODE 
INVALID. 

Explanatio n : The operand of a 
DCA4 pseudo-code item is not 
valid - the operand should 
always be relocatable. 

System A ction : An offset of 
zero is assembled into the 
text. 

User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 

S IEM2883I COMPILER ERROR IN STATEMENT 
NUMBFR xxx. INVALID REQUEST 
FOR RELOCATABLE TEXT. 

Explanatio n: The operand of a 
branch instruction has been 
found to require relocation. 

System Action : An offset of 
zero is assembled into the 
text. 

User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 

S IEM28 8 4I COMPILER ERROR IN STATEMENT 
NUMBER XXX.. NON-ZERO OFFSET IN 
PSEUDO- REGISTER REFERENCE. 

Explanation : Use of a pseudo- 
register accompanied by a 
literal offset has been called 
for by compiled code. This 
cannot be assembled owing to 
the manner in which pseudo- 
register relocation is 
performed. 
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System Action ; The 
offset is ignored 



literal 



User Response: 



Save relevant 



User Response ; Save relevant 
data. Call your local IBM rep- 
resentative. S IEM2897I 

S IEM2 885I COMPILER ERROR IN STATEMENT 
NUMBER XXX. REFERENCE TO 
INVALID DICTIONARY ENTRY. 

Explanation ; A dictionary ref- 
erence in the input text does 
not correspond to a legal dic- 
tionary entry 

System Action ; An offset of 
zero is assembled into the out- 
put text 

User Response ; Save relevant 
data. Call your local IBM rep- 
resentative, 

S IEM2898I 
S IEM288 6I COMPILER ERROR IN STATEMENT 
NUMBER XXX. INVALID DICTIONARY 
REFERENCE OFFSET. 

Explanation ; A dictionary ref- 
erence in the text corresponds 
to a valid dictionary entry, 
but the dictionary reference 
offset is not valid. 

S ystem Action ; An offset of 
zero is assembled into the out- 
put text W IEM28 99I 

User Response ; Save relevant 
data. Call your local IBM rep- 
resentative. 

S IEM2 887I COMPILER ERROR IN STATEMENT 
NUMBER XXX. REQUESTED OFFSET 
NOT ASSIGNED. W IEM2900I 

Explanation : Although implied 
by a dictionary reference in 
the input text, storage has not 
been allocated. 

System Action ; An offset of 

zero is assembled into the out- T IEM2913I 

put text. 

User Response ; Save relevant 
data. Call your local IBM rep- 
resentative. 



data. Call your local IBM rep- 
resentative. 



IMPLEMENTATION RESTRICTION. 
QUALIFIED NAME zzzz LONGER THAN 
256 CHARACTERS. 

Explanation ; The fully quali- 
fied name of the variable indi- 
cated will not fit into its 
Symbol Table entry 

System Action ; Leaves Symbol 
Table entry incomplete and car- 
ries on with the initialization 
of the Static Internal control 
section. 



User Response ; 
qualified name 



Shorten the 



DATA-DIRECTED GET STATEMENT IN 
PROGRAM WITH NO LIST BUT PRO- 
GRAM HAS NO DATA VARIABLES. 

System Action ; Zeros are 
inserted in the argument list 
for the call to the Library 
routine to 'GET DATA' , and com- 
pilation continues 

User R e sponse ; Correct GET 
statement 

INITIALIZATION SPECIFIED FOR 
TOO FEW ELEMENTS IN STATIC 
ARRAY zzzz 

System Action ; Initialization 
terminated when end of initial 
string is found. 

INITIALIZATION SPECIFIED FOR 
TOO MANY ELEMENTS IN STATIC 
ARRAY ZZZZ 

System Action : Initialization 
is terminated when every ele- 
ment has been initialized. 

COMPILER ERROR. INVALID 
PSEUDO-CODE OPERATION. 

Explanati on; The input text 
contains a marker which is not 
valid 



T IEM2 888I COMPILER ERROR IN STATEMENT 
NUMBER XXX. UNDEFINED LABEL. 



System Action ; Compilation is 
terminated 



Explanation : No offset has 
been assigned to a label gener- 
ated by the compiler, 



System Action : 
terminated 



Compilation is 



E IEM3088I 
-32131 



User Response ; Save relevant 
data. Call your local IBM rep- 
resentative. 

THE CONFLICTING ATTRIBUTE aaaa 
HAS BEEN IGNORED IN THE DECLAR- 
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ATION OF IDENTIFIER 
STATEMENT NUMBER xxx 



yyyy IN 



Explanation ; Referenced block 
is not in core 



E IEM3584I 



T IEM3841I 



Explanation ; The attribute 
given in the message conflicts 
with another attribute declared 
for the same identifier, or is 
invalid for that identifier. 



System Action : The attribute 
given in the message is 
ignored* 

AN UNBALANCED NUMBER OF PAREN- 
THESES HAS BEEN DETECTED WITHIN 
A STATEMENT AT OR NEAR STATE- 
MENT NUMBER xxx 

Explanation : An occurrence of 
a comma immediately followed by 
a period at or near the given 
statement has been taken as a 
statement delimiter. The 
statement contains an unba- 
lanced number of parentheses. 

I/O ERROR ON SEARCHING DIRECTO- 
RY. 

Explanatio n: This message is 
written directly on SYSPRINT. 
A permanent I/O error was 
detected when an attempt was 
made to search the directory of 
the library containing the com- 
piler. 



System Action : 
terminated 

User Response : 



Compilation is 



Check 



the 



directory and re-attempt compi- 
lation. If error persists, 
have the computing system 
checked. 

T IEM384 2I COMPILER ERROR. ALL TEXT 
BLOCKS IN CORE ARE BUSY. REF- 
ERENCED BLOCK CANNOT BE BROUGHT 
INTO CORE. 

Explanation : All blocks in 
core have become busy. Compil- 
er cannot continue since an 
external block cannot be read 
in. 

System Action : Compilation is 
terminated 

User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 



T IEM3843I 



COMPILER ERROR. ZDABRF USED 
WITH BLOCK NOT IN CORE. 



System Action : Compilation is 
terminated 



User Resp o nse : Save relevant 
data, Call your local IBM rep- 
resentative. 

T IEM3844I COMPILER ERROR. DICTIONARY 
ENTRY IS TOO LONG FOR THIS 
ENVIRONMENT. 

System Action : Compilation is 
terminated 

User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 

T IEM38 4 5I COMPILER ERROR. REFERENCED 
TEXT BLOCK NOT IN CORE. 

System Action : Compilation is 
terminated 

User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 

T IEM384 6I IMPLEMENTATION RESTRICTION. 
SOURCE PROGRAM TOO LARGE. ALL 
TEXT BLOCKS FULL. 

E xplanatio n: There is no more 
space for text in this environ- 
ment 

System Action : Compilation is 
terminated 

User Res po nse : Subdivide pro- 
gram and recompile 

T IEM3847I COMPILER ERROR. REQUEST FOR 
SCRATCH CORE IS GREATER THAN 
4K. 

Explanation : Request for 
scratch core exceeds 4 09 6 bytes 

System Action : Compilation is 
terminated 

User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 

T IEM3848I COMPILER ERROR. AN ATTEMPT WAS 
MADE TO RELEASE UNALLOCATED 
CORE. 

Explanation : Attempt to 
release unallocated scratch 
core 
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System Action ; Compilation is 
terminated 

User Response ; Save relevant 
data. Call your local IBM rep- 
resentative. 

T IEM3849I COMPILER ERROR. PHASE yy IN 
RELEASE LIST IS NOT IN PHASE 
DIRECTORY. 



Explanation ; This message is 
written directly on SYSPRINT. 
A compiler error has been 
discovered during the printing 
of compile-time diagnostic mes- 
sages (if phase quoted in mes- 
sage is BM) or of source- 
program diagnostic messages (if 
phase is XA) . 



System Action ; Compilation is 
terminated 

User Response ; Save relevant 
data. Call your local IBM rep- 
resentative. 

T IEM3 850I COMPILER ERROR. PHASE yy IN 
LOAD LIST IS NOT IN PHASE 
DIRECTORY.. 



System Action ; Compilation is 
terminated,. Note that only the 
diagnostic message output is 
incomplete. All other output 
files have been generated 
satisfactorily. 



User Response ; 



Save relevant 



data- Call your local IBM rep- 
resentative. 



System Action ; Compilation is 
terminated 

User Response ; Save relevant 
data. Call your local IBM rep- 
resentative. 

T IEM3851I COMPILER ERROR. PHASE yy NOT 
MARKED. IT IS LOADED. 

Explanation ; An unmarked phase 
is loaded 

Syst em Action ; Compilation is 
terminated 

User Response ; Save relevant 
data. Call your local IBM rep- 
resentative. 

T IEM3 852I COMPILER ERROR. REFERENCED 
BLOCK IS NOT IN USE. COMPILER 
CANNOT CONTINUE. 

System Action ; Compilation is 
terminated 

User Response ; Save relevant 
data. Call your local IBM rep- 
resentative. 

T IEM3853I IMPLEMENTATION RESTRICTION. 
SOURCE PROGRAM TOO LARGE. DIC- 
TIONARY IS FULL. 

Explanation ; This message is 
written directly on SYSPRINT. 

System Action ; Compilation is 
terminated 

User Response ; Subdivide into 
more than one program and 
recompile 

T IEM3 855I ERROR IN PHASE yy. 



T IEM3856I COMPILER ERROR. PROGRAM CHECK 
TYPE nnnn HAS OCCURRED IN PHASE 
yy AT OR NEAR STATEMENT NUMBER 
xxx 

Explanation ; A program check 
has occurred during compila- 
tion. This is due to a compil- 
er failure which may have been 
exposed by an error in the 
source code. 

System Action ; Compilation is 
terminated 



User Res p onse : C 
code carefully. I 
found, correcting 
compilation to b 
successfully. Wh 
an error is found, 
relevant data and 
your local IBM re 



heck source 
f an error is 
it may enable 
e completed 
ether or not 
please save 
contact your 
presentative. 



T IEM3857I 



COMPILER ERROR. ATTEMPT TO 
PASS CONTROL TO AN UNNAMED 
PHASE. AN UNMARKED PHASE HAS 
BEEN ENCOUNTERED. 

Explanation ; An unmarked phase 
has been encountered. Compiler 
cannot continue 

System Action ; Compilation is 
terminated 

User Response ; Save relevant 
data. Call your local IBM rep- 
resentative. 



T IEM385 8I COMPILER ERROR. REQUESTED OR 
UNWANTED PHASE NOT IN PHASE 
DIRECTORY. 

Explanati on; Request to mark a 
phase which is not in phase 
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T IEM3859I 



directory, 
continue. 



Compiler cannot 



System Action ; Compilation is 
terminated 

User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 

INSUFFICIENT CORE IS AVAILABLE 
TO CONTINUE THIS COMPILATION. 



line message. It is written to 
operator. There is an I/O 
error on SYSPRINT. The 
compiler cannot continue. 

System Action : Compilation is 
terminated 

User Response : Check DD card 
and recompile. If I/O error 
persists, have computing system 
checked. 



Explanation : An 
being made to expa 
of text blocks in 
GETMAIN routine 
get the core. Thi 
occur where less 
bytes are availabl 
piler, or when the 
has been given 
value. 



attempt is 
nd the number 

core. The 
has failed to 
s will only 

than 4 5,05 6 

e to the com- 

SIZE option 

too large a 



T IEM38 63I I/O ERROR ON SYSPUNCH. GENERA- 
TION OF OBJECT DECK IS TERMIN- 
ATED. 

User Response : Check DD card 
and recompile. If I/O error 
persists* have computing system 
checked. 

T IEM3 864I I/O ERROR ON SYSUT1 



System Action : 
terminated 



Compilation is 



User Response : Check the SIZE 
option and check that the 
required core is available in 
the system on which the compi- 
lation is being run 



E IEM3 860I I/O ERROR ON SYSIN. 
ACCEPTED AS INPUT. 



RECORD 



Explanation : The error may be 
a machine error, or,, if SYSIN 
is a card reader, there may be 
a hole pattern which does not 
represent a valid System/36 
character (validity check). 

System Action : The error mes- 
sage number is printed in the 
source listing before the 
record in error. The record is 
accepted as input. 

User Response : If SYSIN is a 
card reader, check that every 
column of the indicated card 
contains a valid code. If the 
I/O error persists, have the 
computing system checked. 

T IEM3 861I I/O ERROR ON SYSLIN. GENERA- 
TION OF LOAD FILE IS TERMIN- 
ATED. 



User Response : 



Check DD card 
If I/O error 



and recompile. 

persists, have computing system 

checked. 

T IEM3 862I I/O ERROR ON SYSPRINT 

Explanation: This is an on- 



Explanation : This message is 
written directly on SYSPRINT. 
There is an I/O error on 
SYSUT1. The compiler cannot 
continue. 

System Action : Compilation is 
terminated 

User Response : Check DD card 
and recompile. If I/O error 
persists, have computing system 
checked, 

T IEM38 65I ERROR IN COMPILER ABORT 

Explanation : This message is 
written directly on SYSPRINT. 
The compiler has tried twice to 
abort and cannot do so. Compi- 
lation will therefore terminate 
without the production of any 
further diagnostic messages. 

System Action : Compilation is 
terminated 

User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 

T IEM3 872I I/O ERROR ON SYSUT3 

Explanation : This message is 
written directly on SYSPRINT. 
There is an I/O error on 
SYSUT3. The compiler cannot 
continue. 



System Act ion : 
terminated 



Compilation is 



User Response : Check DD card 
and recompile. If I/O error 
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persists, have computing system 
checked. 

E IEM3 873I I/O ERROR ON SYSUT3. RECORD 
ACCEPTED AS INPUT. 

System Action : Compilation 
continues 

User Response : Check DD card 
and recompile. If I/O error 
persists, have computing system 
checked. 

T IEM3874I UNABLE TO OPEN SYSIN 

Explanation : This message is 
written directly on SYSPRINT. 
Unable to open SYSIN. The com- 
piler cannot continue. 

System Action : Compilation is 
terminated 

User Response : Check SYSIN DD 
card and recompile 

T IEM3 87 5I UNABLE TO OPEN SYSLIN. LOAD 
FILE NOT GENERATED. 

User Resp o nse : Check SYSLIN DD 
card and recompile. If error 
persists, have computing system 
checked. 

T IEM3876I UNABLE TO OPEN SYSPRINT 

Explanation : This is an on- 
line message. It is written to 
operator. Unable to open 
SYSPRINT. The compiler cannot 
continue 

System Action : Compilation is 
terminated 

User Response : Check SYSPRINT 
DD card and recompile 

T IEM3 877I UNABLE TO OPEN SYSPUNCH. 
OBJECT DECK NOT GENERATED. 

User Response : Check SYSPUNCH 
DD card and recompile 

T IEM3 87 8I UNABLE TO OPEN SYSUTl. COMPI- 
LATION CANNOT CONTINUE. 

System Action : Compilation is 
terminated 

User Response : Check SYSUTl DD 
card and recompile 

T IEM3880I UNABLE TO OPEN SYSUT3 

Explanation : This message is 
written directly on SYSPRINT. 



S IEM3888I 



S IEM3889I 



W IEM3 8 9 0I 



Unable to open SYSUT3. The 
compiler cannot continue. 



System Action : 
terminated 



Compilation is 



User Response : Check SYSUT3 DD 
card and recompile 

SYSPUNCH BLOCKS I ZE NOT A MULTI- 
PLE OF 80. THE DECK AND MACDCK 
OPTIONS HAVE BEEN DELETED. 

Explanation : On opening SYS- 
PUNCH,, the blocksize defini- 
tion, either on the DD card or 
in the data-set label, was not 
a multiple of 8 0. 



System Act ion : 



The DECK and 



MACDCK options are deleted 

User Response : Correct the 
blocksize definition and recom- 
pile 



SYSLIN BLOCKSIZE NOT A MULTIPLE 
OF 8 0. THE LOAD OPTION HAS 
BEEN DELETED. 

Explanation : On opening SYS- 
LIN, the blocksize definition, 
either on the DD card or in the 
data-set label, was not a mul- 
tiple of 80. 



System A ction : 
is deleted 



The LOAD option 



User Response : Correct the 
blocksize definition and recom- 
pile 



NO RECFM GIVEN FOR SYSIN. U 
TYPE RECORDS ARE ASSUMED 

Explanation : No RECFM defini- 
tion has been found in the DCB 
parameter of the SYSIN DD card 
or the data-set label. 



System Action : 



Compilation 
assuming U type 
U format will be 



proceeds 

records. 

specified in the data- set label 

when SYSIN is closed. 



User Response: 



Check 



RECFM 



definition on SYSIN DD card and 
rerun if necessary. 

T IEM38 91I SYSIN BLOCKSIZE IS TOO LARGE 

Explanation : On opening SYSIN 
for unblocked records, a block- 
size of greater than 100 has 
been specified either in the 
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DCB parameter of the SYSIN DD 
card or in the data-set label. 



System Action : 
terminated 



Compilation is 



T IEM3893I 



User Response : Change the 
invalid blocksize definition 
and recompile 

SYSIN BLOCKSIZE NOT A MULTIPLE 
OF RECORD LENGTH. 

Explanation : On opening SYSIN 
for FB format records, it has 
been noted that the blocksize 
definition, either on the DD 
card or in the data set label, 
is not an exact multiple of the 
record length. 

System Action : Compilation is 
terminated. 

User Response : Correct the 
blocksize definition and recom- 
pile 



T IEM3 894I SYSIN BLOCKSIZE NOT EQUAL TO 
RECORD LENGTH. 

Explanation : On opening SYSIN 
for F format records, the block 
size and record- length defini- 
tions, either on the DD card or 
in the data-set label, were 
found to be unequal. 



in the data-set label, was not 
of the form 4+N+125. 



System Action : 
terminated. 

User Response : 



Compilation is 



Change the 
incorrect definition and recom- 
pile 

T IEM3895I SYSIN RECORD LENGTH TOO LARGE 

Explanation : On opening SYSIN 
for F format records, a record 
length definition, either on 
the DD card or in the data-set 
label, was found to be greater 
than 100. 

System Action : Compilation is 
terminated. 



System Action : 
terminated 



Compilation is 



User Response : Correct the 
blocksize definition and recom- 
pile 

T IEM38 97I SYSIN DEFINITION IS INVALID 

Explanation : On opening SYSIN, 
the record-format definition, 
either on the DD card or in the 
data-set label, was varying. 
This is invalid. 

System Action : Compilation is 
terminated 

User Response : Correct the 
definition of SYSIN and recom- 
pile 

W IEM3898I COMPILER CORE REQUIREMENT 
EXCEEDED SIZE GIVEN. AUXILIARY 
STORAGE USED. 



System Action : 
opened 



SPILL file 



rf IEM3899I 



A BLOCK FOR OVERFLOW DICTIONARY 
ENTRY OFFSETS WAS CREATED DUR- 
ING COMPILER PHASE YY 

Explanatio n: This message 
occurs only in compilations run 
with the extended dictionary 
option. An entry offset table 
in a dictionary block became 
full before the entries filled 
the block. 

System Ac t ion : The block is 
created to hold the entry off- 
sets overflowing from any entry 
offset tables during this com- 
pilation. 



E IEM3900I ERROR IN PROCESS STATEMENT. 

Explanatio n: This message is 
written directly on SYSPRINT. 
The syntax of the PROCESS 
statement is incorrect. 



User Response : Correct the 
record-length definition and 
recompile 

T IEM3896I SYSPRINT BLOCKSIZE IS NOT OF 
FORM 4+N+125 

Explanation : On opening SYS- 
PRINT, the blocksize defini- 
tion, either on the DD card or 



System Action : An attempt is 
made to interpret the statement 
correctly. Actual results will 
depend on the nature of the 
syntax error. 

User Response : Check that the 
options required have been cor- 
rectly applied. If not, and 
recompilation is necessary, 
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correct the syntax of the PROC- 
ESS statement. 



E IEM3 901I ERROR IN PROCESS STATEMENT. 
DEFAULT OPTIONS ASSUMED. 



Explanation ; This message is 
written directly on SYSPRINT. 
Invalid syntax in the PROCESS 
statement has rendered the 
options unrecognizable. 



System Action : 
tion defaults 
all options. 



The installa- 
are assumed for 



User Response : If the use of 
installation default options is 
unsatisfactory, correct the 
syntax of the PROCESS statement 
and recompile. 

E IEM3 90 2I OBJNM FIELD TOO LARGE. FIRST 
EIGHT CHARACTERS OF NAME HAVE 
BEEN USED. 

Explanation : The name speci- 
fied in the OBJNM option may 
not have more than eight char- 
acters. 

System Action : First eight 
characters of name used. 

User Response : Either amend 
object module name as required, 
or alter other references to 
object module to correspond 
with truncated name. 

W IEM3 90 3I CARRIAGE CONTROL POSITION LIES 
WITHIN THE SOURCE MARGIN. IT 
HAS BEEN IGNORED. 

User Response : Recompile with 
carriage control position out- 
side source margin. 

E IEM3904I THE FOLLOWING STRING NOT IDEN- 
TIFIED AS A KEYWORD - yyyy 

Explanation : This message is 
written directly on SYSPRINT. 
The compiler was processing the 
option list passed to it as an 
invocation parameter, when it 
found a character string that 
it could not identify as a 
keyword. 

System Action : The offending 
character string is ignored. 

User Response : Correct the 
erroneous parameter, and recom- 
pile. 



E IEM3905I THE FOLLOWING KEYWORD DELETED, 
DEFAULT USED FOR - yyyy 

Explanation : This message is 
written directly on SYSPRINT. 
The compiler was processing the 
option list passed to it as an 
invocation parameter, when it 
found an option keyword that 
had been deleted at system gen- 
eration. 

System Action : The keyword 
passed at invocation time is 
ignored* The default interpre- 
tation for the option, as set 
at system generation, is used. 

User Response : None, unless it 
is required to reinstate the 
deleted keyword, in which case 
it is necessary to generate the 
required version of the compil- 
er with a system generation 
run. 

E IEM3906I OPTION SPECIFICATION CONTAINS 
INVALID SYNTAX, DEFAULT USED 
FOR - yyyy 

Explanati on: This message is 
written directly on SYSPRINT. 
The compiler was processing the 
option list passed to it as an 
invocation parameter, when it 
found that a sub- parameter, 
associated with the keyword 
given in the diagnostic mes- 
sage, was incorrectly speci- 
fied. 

System Action : The keyword 
passed at invocation time is 
ignored. The default interpre- 
tation for the option, as set 
at system generation, is used. 

User Res p onse : Correct the 
erroneous parameter, and recom- 
pile. 

E IEM39 07I THE FOLLOWING NAME IGNORED AS 
IT DOES NOT APPEAR IN THE PHASE 
DIRECTORY - yy 

Explanation : This message is 
written directly on SYSPRINT. 
The two characters given in the 
message were used as parameters 
to the DUMP option. This usage 
is incorrect since the charac- 
ters do not represent the name 
of a compiler phase. 

System Action : The processing 
of the DUMP option continues, 
unless the two characters were 
used to indicate the first 
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phase of an inclusive phase 
dump, in which case the scan of 
the DUMP option is terminated. 

User Response ; Correct the 
erroneous parameter, and recom- 
pile. 



S IEM3 908I SYNTAX ERROR 
SPECIFICATION 



IN DUMP OPTION 



Explanation ; This message is 
written directly on SYSPRINT. 
Incorrect use of delimiters in 
the specification of the DUMP 
option parameters. 

System Action ; Processing of 
DUMP option is terminated 

User Response ; Correct the 
erroneous specification, and 
recompile. 

T IEM3909I EXTENDED DICTIONARY CAPACITY 
EXCEEDED. COMPILATION TERMIN- 
ATED. 

Explanation ; This message 
occurs only in compilations run 
with the extended dictionary 
option. The block created to 
hold overflow dictionary entry 
offsets is full. 

System Action ; Compilation is 
terminated 

User Response ; Subdivide pro- 
gram and recompile 

T IEM3910I SYSPRINT BLOCKSIZE IS TOO LARGE 
WITH THIS SIZE OPTION 

Explanation ; The size speci- 
fied allows a limited buffer 
area which is smaller than that 
required by the specified 
blocksize. 



fied allows a limited buffer 
area which is smaller than that 
required by the buffers for 
SYSIN, or for SYSIN and SYS- 
PRINT together. 



System Act i on ; 
terminated 



Compilation is 



System Action ; 
terminated 



Compilation is 



S IEM3913I 



User Response ; Ensure that 
SIZE option allows room for 
both the SYSIN and the SYSPRINT 
buffers,. 

SYSPUNCH BLOCKSIZE IS TOO LARGE 
WITH THIS SIZE OPTION. THE 
DEC* AND MACDCK OPTIONS HAVE 
BEEN DELETED. 

Explanation ; The SIZE speci- 
fied allows a limited buffer 
area which is smaller than that 
required by the specified SYS- 
PUNCH blocksize. 

System Action ; The DECK and 
MACDCK options are deleted 

User Response ; Ensure that the 
SIZE option allows room for the 
SYSPUNCH buffers needed, and 
recompile. 



S IEM3914I SYSLIN BLOCKSIZE IS TOO LARGE 
WITH THIS SIZE OPTION. THE 
LOAD OPTION HAS BEEN DELETED. 

Explanation ; The SIZE speci- 
fied allows a limited buffer 
area which is smaller than that 
required by the specified SYS- 
LIN blocksize. 

System Act ion ; The LOAD option 
is deleted. 

User Response ; Ensure that the 
SIZE option allows room for the 
SYSLIN buffers needed and 
recompile. 



W IEM3911I 



T IEM3912I 



User Response ; Use smaller 
blocksize or larger SIZE option 

SIZE AVAILABLE FOUND TO BE 

yyyyyy bytes. size=uuk 

ASSUMED. COMPILATION CONTIN- 
UES. 



Explanation ; SIZE is found 
be less than 4 4K. 



to 



SYSIN BLOCKSIZE IS TOO LARGE 
WITH THIS SIZE OPTION 

Explanation ; The size speci- 



COMPILE-TIME PROCESSING DIAGNOSTIC MESSAGES 



The details given under the heading 
"Source Program Diagnostic Messages" apply 
equally to compile-time processing messa- 
ges, with one exception: all compile-time 
processing messages are listed in a group 
following the S0URCE2 input listing and 
preceding the source program listing. 

The line number in the messages refers 
to the line in which the error was found. 
The incorrect statement may have commenced 
on an earlier line. 
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S IEM4106I UNEXPECTED END-OF-FILE IN 
STRING AT OR BEYOND LINE NUMBER 
XXX. A STRING DELIMITER HAS 
BEEN INSERTED. 

Explanation : End-of-file 
encountered while scanning for 
closing quote of a string con- 
stant. 

System Action : Closing quote 
inserted before end-of-file. 



for which a DECLARE statement 
has not been executed. 



E IEM4133I % ENCOUNTERED IN LABELLIST OF 
STATEMENT IN LINE NUMBER xxx. 
IT HAS BEEN IGNORED. 



User Response : Remove % from 
label list 



T IEM4109I REPLACEMENT VALUE IN LINE NUM- 
BER xxx CONTAINS UNDELIMITED 
STRING. PROCESSING TERMINATED. 



E IEM4134I UNEXPECTED COLON WITHOUT 
PRECEDING LABEL IN LINE NUMBER 
xxx. COLON HAS BEEN IGNORED. 



Explanation : End-of-string 
delimiter cannot be found in a 
replacement value. 



S IEM4136I STATEMENT TYPE NOT RECOGNIZABLE 
IN LINE NUMBER xxx. STATEMENT 
DELETED. 



E IEM4112I ILLEGAL CHARACTER IN APPARENT 
BIT STRING IN LINE NUMBER xxx. 
STRING TREATED AS A CHARACTER 
STRING. 

S IEM4115I UNEXPECTED END-OF-FILE IN COM- 
MENT AT OR BEYOND LINE NUMBER 
xxx. A COMMENT DELIMITER HAS 
BEEN INSERTED. 

Explanation : End-of-file 
encountered while scanning for 
end-of- comment delimiter. 

T IEM4118I REPLACEMENT VALUE IN LINE NUM- 
BER xxx CONTAINS UNDELIMITED 
COMMENT. PROCESSING TERMIN- 
ATED. 

Explanation : End-of- comment 
delimiter cannot be found in a 
replacement value,. 

E IEM4121I INVALID CHARACTER HAS BEEN 
REPLACED BY BLANK IN OR FOLLOW- 
ING LINE NUMBER xxx 

Explanation : Invalid character 
found in source text 



E IEMU139I 



E IEM4142I 



W IEM4143I 



E IEM41U8I 



PREVIOUS USAGE OF IDENTIFIER 
ZZZZ CONFLICTS WITH USE AS 
LABEL IN LINE NUMBER xxx. ANY 
REFERENCE WILL TERMINATE PROC- 
ESSING. 



System 



Action: 



No 



action 



unless an attempt is made to 
execute a statement which ref- 
erences the ill-defined iden- 
tifier. 

LABEL zzzz IN LINE NUMBER xxx 
MULTIPLY DEFINED. ANY REF- 
ERENCE WILL TERMINATE PROCESS- 
ING. 

System Action : No action 
unless a statement which ref- 
erences the multiply defined 
label is executed. 

LABELS BEFORE DECLARE STATEMENT 
IN LINE NUMBER xxx ARE IGNORED. 

IDENTIFIER zzzz IN LINE NUMBER 
xxx USED WITH CONFLICTING 
ATTRIBUTES. ANY REFERENCE WILL 
TERMINATE PROCESSING. 



T IEM4124I COMPILER ERROR. 
STACK OUT OF PHASE 



PUSH DOWN 



System Action : Processing ter- 
minated 

User Response : Save relevant 
data. Call your local IBM rep- 
resentative, 

T IEM4130I UNDECLARED IDENTIFIER zzzz REF- 
ERENCED AT LINE NUMBER xxx. 
PROCESSING TERMINATED. 

Explanation : An attempt is 
made to execute a statement 
which references an identifier 



E IEM4150I 



Explanation : Usage of iden- 
tifier conflicts with a pre- 
vious usage or declaration. If 
the line number refers to a 
procedure END statement, the 
error occurred within the pro- 
cedure. 

System Action : No action 
unless a statement is executed 
which references the identifier 
in error. 

FORMAL PARAMETER zzzz WAS NOT 
DECLARED IN PROCEDURE ENDING IN 
LINE NUMBER XXX. TYPE CHARAC- 
TER HAS BEEN FORCED. 
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E IEM4151I 



LABEL zzzz IS NOT DEFINED. ANY 
REFERENCE WILL TERMINATE PROC- 
ESSING- 

System Action : No action 
unless a statement is executed 



W IEM4175I 



which 
label. 



references the undefined s IEM4176I 



E IEM4152I END OF FILE OCCURS BEFORE END 
FOR CURRENT PROCEDURE OR DO. 
END HAS BEEN INSERTED AT LINE 
NUMBER xxx. 

E IEM4153I LABEL zzzz IS UNDEFINED IN THE 

PROCEDURE ENDING IN LINE NUMBER 

xxx. ANY REFERENCE WILL TERMI- 
NATE PROCESSING. 

Explanation : Label may have 
been defined outside of proce- 
dure, but transfers out of pro- 
cedures are not allowed. 

System Action : Any reference 
to the label in the procedure 
will terminate processing,. 

E IEM4154I SEMICOLON TERMINATES IF EXPRES- 
SION IN LINE NUMBER XXX. SEMI- 
COLON HAS BEEN IGNORED. 

S IEM4157I NEITHER % NOR THEN FOLLOWS IF 
EXPRESSION IN LINE NUMBER XXX. 
IF STATEMENT DELETED. 

E IEM4160I % MISSING BEFORE THEN OF IF 
STATEMENT IN LINE NUMBER XXX. 
% HAS BEEN INSERTED. 

E IEM4163I THEN MISSING FOLLOWING % IN IF 
STATEMENT IN LINE NUMBER xxx. 
A THEN HAS BEEN INSERTED. 



E IEM4178I 



S IEM4184I 



E IEM4187I 



T IEM4188I 



E IEM4190I 



LABELS BEFORE ELSE IN LINE NUM- 
BER xxx HAVE BEEN IGNORED. 

Explanation : Label (s) found 
preceding an ELSE statement. 

NO STATEMENT FOLLOWS THEN OR 

ELSE IN LINE NUMBER XXX. A 

NULL STATEMENT HAS BEEN INSERT- 
ED. 



ELSE WITHOUT 
LINE NUMBER 
IGN CRED, 



PRECEDING 
xxx HAS 



IF IN 
BEEN 



ASSIGNMENT STATEMENT IN LINE 
NUMBER XXX MUST END WITH SEMI- 
COLON. TEXT DELETED TILL SEMI- 
COLON IS FOUND. 

LABEL MISSING FROM PROCEDURE 
STATEMENT IN LINE NUMBER xxx. 
A DUMMY LABEL HAS BEEN INSERT- 
ED. 

IMPLEMENTATION RESTRICTION. NO 
MORE THAN 254 COMPILE-TIME PRO- 
CEDURES MAY BE DEFINED IN A 
COMPILATION. PROCESSING TER- 
MINATED. 

User Response : Delete excess 
procedures 

LABEL zzzz ON PROCEDURE IN LINE 
NUMBEER xxx IS PREVIOUSLY 
DEFINED. ANY REFERENCE TO IT 
WILL TERMINATE PROCESSING. 



System 



Action: 



No 



action 



unless a statement is executed 
which references the multiply 
defined label. 



E IEM4166I COMPILE TIME STATEMENT MUST 
FOLLOW THEN OR ELSE IN LINE 
NUMBER xxx. A % HAS BEEN 
INSERTED IN FRONT OF STATEMENT. 



E IEM419 3I ILLEGAL USE OF FUNCTION NAME 
zzzz ON LEFT HAND SIDE OF 
EQUALS SYMBOL. ANY REFERENCE 
WILL TERMINATE PROCESSING. 



E IEM4169I 



E IEM4172I 



Explanation : % does not pre- E IEM419 6I 
cede the first statement in the 
THEN or ELSE clause of an IF 
statement.. 

User Response : If the state- 
ment in question is meant to be 
a non-compile time statement, 
it should be put inside of a "% 
DO" group. 

THEN MISSING FROM IF STATEMENT S IEM419 9I 
AT LINE NUMBER XXX IN A COMPILE 
TIME PROCEDURE. A THEN HAS 
BEEN INSERTED. 

THE % IN LINE NUMBER xxx IS NOT 

ALLOWED IN COMPILE TIME PROCE- S IEM4202I 

DURES. IT HAS BEEN IGNORED. 



PREVIOUS USE OF IDENTIFIER zzzz 
CONFLICTS WITH USE AS ENTRY 
NAME IN LINE NUMBER XXX. ANY 
REFERENCE WILL TERMINATE PROC- 
ESSING. 

System Action : No action 

unless a statement is executed 
which references the erroneous 
identifier. 

FORMAL PARAMETER ZZZZ IS 
REPEATED IN PARAMETER LIST IN 
LINE NUMBER xxx. THE SECOND 
OCCURRENCE HAS BEEN REPLACED BY 
A DUMMY PARAMETER. 

IMPLEMENTATION RESTRICTION: 
MORE THAN 15 PARAMETERS OCCUR 



252 



IN LINE NUMBER XXX. ANY REF- 
ERENCE WILL TERMINATE PROCESS- 
ING. 



System Action ; The number of 
parameters specified in the 
PROCEDURE statement is used. 



E IEM4205I 



E IEM4208I 



S IEM4211I 



S IEM4212I 



E IEM4214I 



E IEM4217I 



S IEM4220I 



E IEM4223I 



System Action : Processing is 
terminated if an attempt is 
made to execute a statement 
which references the procedure 
that has more than 15 paramet- 
ers. 



E IEM4226I 



FORMAL PARAMETER 
LINE NUMBER xxx. 
BEEN INSERTED. 



MISSING IN 
A DUMMY HAS 



UNRECOGNIZABLE PARAMETER yyyy 
IN LINE NUMBER xxx. IT HAS 
BEEN REPLACED BY A DUMMY PARAM- 
ETER. 

PARAMETER IN LINE NUMBER xxx 
NOT FOLLOWED BY COMMA OR PAREN- 
THESIS. TEXT DELETED TO NEXT 
COMMA OR END OF STATEMENT. 

UNEXPECTED END OF PROCEDURE 
STATEMENT IN LINE NUMBER XXX. 
RIGHT PARENTHESIS INSERTED. 

Explanation ; A semicolon was 
encountered during scan of an 
apparent parameter list. 

System Action ; A right paren- 
thesis is inserted before the 
semicolon and processing con- 
tinues. 

ILLEGAL FORM FOR ATTRIBUTE FOR 
RETURNED VALUE IN LINE NUMBER 
xxx. TEXT DELETED TO SEMICO- 
LON. 

Explanation ; Returned values 
may only be FIXED or CHARACTER. 



System 



Action; 



CHARACTER 



attribute is assigned 



NO ATTRIBUTE FOR RETURNED VALUE 
IN LINE NUMBER xxx. CHARACTER 
ATTRIBUTE IS USED. 



System 



Action: 



CHARACTER 



attribute is assigned 



SEMICOLON NOT FOUND WHERE 
EXPECTED IN PROCEDURE STATEMENT 
IN LINE NUMBER xxx. TEXT DEL- 
ETED UP TO NEXT SEMICOLON. 

ENTRY ATTRIBUTE AND PROCEDURE 
STATEMENT FOR ENTRY zzzz DISA- 
GREE ON THE NUMBER OF PARAMET- 
ERS, THE LATTER IS USED. 



S IEM4229I 



S IEM4232I 



S IEM4235I 



E IEM4238I 



E IEM42U1I 



S IEM42U4I 



E IEM42U7I 



RETURNS ATTRIBUTE AND PROCEDURE 
STATEMENT FOR ENTRY ZZZZ DISA- 
GREE ON ATTRIBUTE OF RETURNED 
VALUE. 

System Action ; The returned 



first be converted 
on the procedure 



value will 
to the type 
statement and will then be con- 
verted to the type given in the 
RETURNS attribute. A third 
conversion can occur if the 
type given in the returns 
attribute does not agree with 
the type required where the 
result is used. 

PROCEDURE STATEMENT AT LINE 

NUMBER xxx MAY NOT BE USED 

WITHIN A PROCEDURE. PROCEDURE 
HAS BEEN DELETED. 

Explanation ; Compile -time pro- 
cedures may not be nested. 

System Action : Text is deleted 
up to and including the first % 
END following the erroneous 
PROCEDURE statement. 

PROCEDURE STATEMENT AT LINE 
NUMBER xxx MAY NOT FOLLOW THEN 
OR ELSE. PROCEDURE HAS BEEN 
REPLACED BY A NULL STATEMENT. 

Explanation : A PROCEDURE 
statement may appear in a THEN 
or ELSE clause only if it is 
inside a compile-time DO group. 

RETURN STATEMENT IN LINE NUMBER 
XXX IS NOT ALLOWED OUTSIDE OF 
COMPILE-TIME PROCEDURE. STATE- 
MENT DELETED. 

RETURNED VALUE MUST BE PAREN- 
THESIZED IN LINE NUMBER xxx. 
PARENTHESIS INSERTED. 

RETURNS EXPRESSION IN LINE NUM- 
BER XXX DOES NOT END RETURN 
STATEMENT. REMAINDER OF STATE- 
MENT HAS BEEN IGNORED. 

GOTO IN LINE NUMBER xxx IS NOT 
FOLLOWED BY LABEL. STATEMENT 
DELETED. 

PREVIOUS USE OF IDENTIFIER zzzz 
CONFLICTS WITH USE AS OBJECT OF 
GOTO IN LINE NUMBER xxx. ANY 
REFERENCE WILL TERMINATE PROC- 
ESSING. 
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System Action ; No action 
unless a statement is executed 
which references the erroneous 
identifier* 



E IEM42 89I DO STATEMENT IN LINE NUMBER XXX 
SHOULD END WITH SEMICOLON. 
TEXT TO SEMICOLON DELETED. 



S IEM4248I SEMICOLON NOT FOUND WHERE E IEM42 92I 
EXPECTED IN GOTO STATEMENT IN 
LINE NUMBER xxx. TEXT DELETED 
UP TO NEXT SEMICOLON. 

T IEM4250I GOTO zzzz IN LINE NUMBER xxx 
TRANSFERS CONTROL INTO ITERA- 
TIVE DO OR ENCLOSED INCLUDED E IEM4295I 
TEXT. PROCESSING TERMINATED. 

S IEM4253I ACTIVATE OR DEACTIVATE IN LINE 
NUMBER XXX NOT ALLOWED IN A 
COMPILE-TIME PROCEDURE. STATE- E IEM4296I 
MENT DELETED. 

E IEM4254I EMPTY ACTIVATE OR DEACTIVATE 
STATEMENT IN LINE NUMBER xxx. 
STATEMENT DELETED. 

E IEM4256I SURPLUS COMMA IN ACTIVATE OR 
DEACTIVATE IN LINE NUMBER XXX. 
THE COMMA HAS BEEN DELETED. 

S IEM4259I UNRECOGNIZABLE FIELD IN ACTI- E IEM42 98I 
VATE OR DEACTIVATE STATEMENT IN 
LINE NUMBER xxx. THE FIELD HAS 
BEEN DELETED. 



END STATEMENT AT LINE NUMBER 
xxx MAY NOT FOLLOW THEN OR 
ELSE. A NULL STATEMENT HAS 
BEEN INSERTED BEFORE THE END 
STATEMENT. 



SEMICOLON NOT 
EXPECTED IN END 
LINE NUMBER XXX. 
UP TO SEMICOLON. 



FOUND WHERE 

STATEMENT IN 

TEXT DELETED 



END STATEMENT IN LINE NUMBER 
xxx NOT PRECEDED BY DO OR PRO- 
CEDURE STATEMENT. END HAS BEEN 
DELETED. 

Explanation : £si END statement 
has been encountered which is 
not preceded by a DO or PROCE- 
DURE statement that has not 
already been terminated. 

LABEL REFERENCED ON END STATE- 
MENT IN LINE NUMBER XXX CANNOT 
BE FOUND. END TREATED AS HAV- 
ING NO OPERAND. 



S IEM4 262I ONLY PROCEDURES OR VARIABLES 
MAY HAVE ACTIVITY CHANGED. 
IDENTIFIER zzzz IN LINE NUMBER 
XXX HAS BEEN DELETED FROM 
STATEMENT. 

S IEM4265I COMMA MUST SEPARATE FIELDS OF 
ACTIVATE AND DEACTIVATE STATE- 
MENTS,. IN LINE NUMBER XXX TEXT 
AFTER IDENTIFIER yyyy HAS BEEN 
DELETED UP TO NEXT COMMA. 

S IEMU271I INVALID SYNTAX IN DO STATEMENT 
IN LINE NUMBER XXX. IT HAS 
BEEN CONVERTED TO A GROUPING 
DO. 

W IEM4277I NO MAXIMUM VALUE WAS SPECIFIED 
IN ITERATIVE DO IN LINE NUMBER 
xxx. PROGRAM WILL LOOP UNLESS 
ALTERNATE EXIT IS PROVIDED. 

E IEM4280I UNEXPECTED % IN LINE NUMBER xxx 
TREATED AS HAVING BEEN PRECEDED 
BY SEMICOLON. 

E IEM4283I MULTIPLE TO" S HAVE OCCURRED IN 
DO STATEMENT IN LINE NUMBER 
xxx. SECOND , TO' HAS BEEN 
CHANGED TO 'BY'. 



Explanation : The label cannot 
be found on a DO or PROCEDURE 
statement that has not already 
been terminated. 

E IEM4 2 99I END STATEMENT ENDING PROCEDURE 
IN LINE NUMBER xxx DID NOT HAVE 
A PRECEDING PERCENT. A PERCENT 
IS INSERTED. 

Explanation : The END statement 
referred to in this message is 
the logical end of the proce- 
dure. 

E IEM4301I IDENTIFIER ZZZZ ON END STATE- 
MENT IN LINE NUMBER xxx IS NOT 
A LABEL. END TREATED AS HAVING 
NO OPERAND. 

E IEM4304I PROCEDURE zzzz DID NOT INCLUDE 
A RETURN STATEMENT. 

Explanation : Language syntax 
requires use of RETURN state- 
ment in a procedure. 

System Action : A null value is 
returned if the procedure is 
invoked. 



E IEM4286I MULTIPLE BY'S HAVE OCCURRED IN 
DO STATEMENT IN LINE NUMBER 
xxx. SECOND 'BY' HAS BEEN 
CHANGED TO 'TO'. 



S IEMU307I INCLUDE STATEMENT AT LINE NUM- 
BER xxx IS NOT ALLOWED IN 
COMPILE-TIME PROCEDURES. 
STATEMENT DELETED. 
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E IEM4 310I IMPLEMENTATION RESTRICTION. 
DDNAME IN LINE NUMBER xxx HAS 
BEEN TRUNCATED TO 8 CHARACTERS. 

Explanation : The first of a 
pair of data set identifiers in 
an INCLUDE statement is a 
ddname and as such is limited 
to a maximum of 8 characters. 



S IEM4334I IMPLEMENTATION RESTRICTION. 
FACTORING IN DECLARE STATEMENT 
IN LINE NUMBER xxx EXCEEDS 3 
LEVELS. REMAINDER OF STATEMENT 
DELETED . 



User Response : Reduce level of 
factoring in DECLARE statement. 



S IEM4 313I UNRECOGNIZABLE FIELD IN INCLUDE E IEM43 37I 
STATEMENT AT LINE NUMBER xxx. 
FIELD HAS BEEN DELETED. 

System Action : Text is deleted 

up to next comma or semicolon. E IEM43 40I 

S IEM4 319I EMPTY INCLUDE STATEMENT IN LINE 
NUMBER XXX. STATEMENT DELETED. 



SURPLUS COMMA HAS BEEN FOUND IN 
DECLARE STATEMENT IN LINE NUM- 
BER xxx. THIS COMMA HAS BEEN 
DELETED. 

IDENTIFIER MISSING WHERE 
EXPECTED IN LINE NUMBER xxx. A 
DUMMY IDENTIFIER HAS BEEN 
INSERTED. 



Explanation : At least one 
identifier must appear in an 
INCLUDE statement i.e., the 
data set member name. 



E IEM43U3I IDENTIFIER zzzz IN LINE NUMBER 
xxx HAS MULTIPLE DECLARATIONS. 
ANY REFERENCE WILL TERMINATE 
PROCESSING. 



E IEM4322I 



IMPLEMENTATION RESTRICTION. 
MEMBER NAME IN LINE NUMBER xxx 
HAS BEEN TRUNCATED TO 8 CHARAC- 
TERS. 

System Action : First 8 charac- 
ters of member name have been 
used. 

User Response : Correct data 
set member name in INCLUDE 
statement. 



E IEM4 325I RIGHT PARENTHESIS INSERTED 
AFTER MEMBER NAME IN LINE NUM- 
BER xxx. 



S IEM4346I 



E IEM4349I 



Explanat ion: An identifier may 
be declared only once. 

System Action : No action 
unless a statement is executed 
which references the multiply 
declared identifier. 

UNRECOGNIZABLE SYNTAX IN 
DECLARE STATEMENT IN LINE NUM- 
BER XXX. STATEMENT DELETED. 

LABEL zzzz CANNOT BE DECLARED 
IN LINE NUMBER XXX. ANY REF- 
ERENCE WILL TERMINATE PROCESS- 
ING. 



T IEM4328I COMPILER ERROR. DICTIONARY 
INFORMATION INCORRECT. 

Explanation : A name containing 
an invalid character is found 
in the dictionary. 



System Action : 
terminated 



Processing is 



Expla n ation : An attempt has 
been made to declare an iden- 
tifier which has already been 
used as a label. 



System Ac tion : No action 
unless a statement is executed 
which references the declared 
label. 



S IEM4331I 



U ser Response : Save relevant E IEM4 352I 
data. Call your local IBM rep- 
resentative. 

E IEM43 55I 
DECLARE STATEMENT IN LINE NUM- 
BER xxx IS ILLEGAL AFTER THEN 
OR ELSE. STATEMENT DELETED. 

User Response : Correct pro- 
gram. A DECLARE statement can 
appear in the THEN or ELSE 
clause of an IF statement if it 
is inside a DO group. 



EXTRA PARENTHESIS 
LINE NUMBER XXX. 



DELETED IN 



ILLEGAL ATTRIBUTE yyyy IN LINE 
NUMBER XXX. ATTRIBUTE HAS BEEN 
DELETED . 

Explanation : Legal attributes 
are FIXED, CHARACTER, ENTRY and 
RETURNS. 

System Action : The illegal 
attribute is deleted. 



E IEM4332I 



EMPTY DECLARE STATEMENT IN LINE 
NUMBER xxx. STATEMENT DELETED. 



E IEM4358I 



CLOSING RIGHT PARENTHESI: 
INSERTED IN LINE NUMBER xxx. 
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E IEM4361I 



RETURNS ATTRIBUTE OCCURRED 
WITHOUT ENTRY ATTRIBUTE FOR 
PROCEDURE zzzz IN DECLARE 
STATEMENT AT OR BEFORE LINE 
NUMBER XXX. 



Explanation : Both ENTRY and 
RETURNS attributes must be 
declared for a compile-time 
procedure name. 

System Action ; The identifier 
is treated as an ENTRY name. 
If it is referenced, the argu- 
ments will be converted to the 
types declared for the proce- 
dure parameters. 

E IEM4364I NO ATTRIBUTES WERE DECLARED FOR 
IDENTIFIER zzzz IN DECLARE 
STATEMENT AT OR BEFORE LINE 
NUMBER XXX. CHARACTER HAS BEEN 
ASSIGNED. 

E IEtfU367l RETURNS ATTRIBUTE NOT GIVEN FOR 
ENTRY NAME zzzz IN DECLARE 
STATEMENT AT OR BEFORE LINE 
NUMBER xxx. 

Explanation : Both ENTRY and 
RETURNS attributes must be 
declared for a compile-time 
procedure name. 

System Action : The attribute 
of the returned value is deter- 
mined by the relevant PROCEDURE 
statement. 



System Action : The attribute 
of the returned value is deter- 
mined by the relevant PROCEDURE 
statement. 

E IEM4379I ATTRIBUTE yyyy IS ILLEGAL IN 
ENTRY ATTRIBUTE IN LINE NUMBER 
xxx. NO CONVERSION WILL BE 
DONE. 

Explanation : An invalid attri- 
bute was found. 

System Action : No conversion 
to an ENTRY attribute will be 
carried out. However, if the 
relevant procedure is ref- 
erenced, arguments will be con- 
verted to the types declared 
for the procedure parameters. 

E IEM43 82I ATTRIBUTE CONFLICTS WITH PRE- 
VIOUS ATTRIBUTE FOR IDENTIFIER 
zzzz IN LINE NUMBER xxx. 
ATTRIBUTE IGNORED. 

E IEM43 83I PREVIOUS USAGE OF IDENFIFIER 
zzzz CONFLICTS WITH ATTRIBUTE 
IN LINE NUMBER xxx. ANY REF- 
ERENCE WILL TERMINATE PROCESS- 
ING. 

E IEM43 91I OPERAND MISSING IN LINE NUMBER 
xxx. A FIXED DECIMAL ZERO HAS 
BEEN INSERTED. 

S IEM43 94I ILLEGAL OPERATOR yyyy IN LINE 
NUMBER XXX. IT HAS BEEN 
REPLACED BY A PLUS. 



E IEM4 370I ENTRY ATTRIBUTE DISAGREES WITH 
DECLARATION FOR FORMAL PARAM- 
ETER zzzz. THE IATTER HAS BEEN 
USED. 



W IEMU3 97I A LETTER IMMEDIATELY FOLLOWS 
CONSTANT yyyy IN LINE NUMBER 
XXX. AN INTERVENING BLANK HAS 
BEEN ASSUMED. 



Explanation : An ENTRY attri- E IEM44 00I 
bute in a DECLARE statement 
does not agree with the param- 
eter attributes declared in the 
procedure. T IEM44 03I 

System Action : If the relevant 
procedure is referenced,, the 
argument will be converted to 
the type declared for the for- 
mal parameter. 

E IEM4 373I RETURNS ATTRIBUTE IN LINE NUM- 
BER xxx MUST BE PARENTHESIZED. 
PARENTHESIS INSERTED. E IEM44 06I 

E IEM4376I ONLY FIXED OR CHARACTER ARE 
ALLOWED IN RETURNS ATTRIBUTE IN 
LINE NUMBER XXX. ATTRIBUTE 
IGNORED. 

Explanation : An illegal attri- 
bute was found. 



OPERATOR .NOT. IN LINE NUMBER 
xxx USED AS AN INFIX OPERATOR. 
IT HAS BEEN REPLACED BY .NE. 



COMPILER ERROR. 
SCAN OUT OF PHASE 

System Action : 
terminated. 



EXPRESSION 
Processing is 



User Response : Save relevant 
data. Call your local IBM rep- 
resentative,. 



PREVIOUS USAGE OF IDENTIFIER 
zzzz CONFLICTS WITH USE IN 
EXPRESSION IN LINE NUMBER xxx. 

System Action : Processing is 
terminated if an attempt is 
made to execute a statement 
which references the identifier 
in question. 



256 



S IEM4407I UNDECIPHERABLE KEYWORD. nnn 
IDENTIFIERS HAVE BEEN DELETED 

before yyyy in line number xxx. 



T IEM445 2I RECURSIVE USE OF PROCEDURE ZZZZ 
IN LINE NUMBER xxx IS DISAL- 
LOWED. PROCESSING TERMINATED. 



Explanation : The processor has 
found a mis-match while scan- 
ning a keyword consisting of 
more than one identifier. 



E IEM44 54I TOO FEW ARGUMENTS HAVE BEEN 
SPECIFIED FOR THE BUILTIN FUNC- 
TION SUBSTR IN LINE NUMBER xxx. 
A NULL STRING HAS BEEN 
RETURNED . 



IEM4409I 



S IEM4412I 



S IEM4415I 



E IEM4421I 



T IEM4433I 



S IEM4436I 



W IEM4 4 3 9I 



E IEM4448I 



T IEM4451I 



System Action ; The identifiers 
^receding the non-matching 
identifier are deleted. 

OPERATOR MISSING IN LINE NUMBER 
xxx. A PLUS HAS BEEN INSERTED. 

NO EXPRESSION WHERE ONE IS 
EXPECTED IN LINE NUMBER xxx. A 
FIXED DECIMAL ZERO HAS BEEN 
INSERTED. 

ILLEGAL OPERAND yyyy IN LINE 
NUMBER XXX HAS BEEN REPLACED BY 
A FIXED DECIMAL ZERO. 

MISSING LEFT PARENTHESIS 
INSERTED AT BEGINNING OF 
EXPRESSION IN LINE NUMBER XXX. 

REFERENCE IN LINE NUMBER XXX TO 
STATEMENT OR IDENTIFIER WHICH 
IS IN ERROR. PROCESSING TER- 
MINATED. 

EXCESS ARGUMENTS TO FUNCTION 
zzzz IN LINE NUMBER XXX. EXTRA 
ARGUMENTS HAVE BEEN DELETED. 



E IEM4457I 



Expla nation : 
ments appear 
reference. 



Too many argu- 
in a procedure 



TOO FEW ARGUMENTS TO FUNCTION 
ZZZZ IN LINE NUMBER XXX. MISS- 
ING ARGUMENTS HAVE BEEN 
REPLACED BY FIXED DECIMAL 
ZEROS. 

Explanation : Too few arguments 
appear in a procedure ref- 
erence. 

NO ENTRY DECLARATION FOR PROCE- 
DURE ZZZZ REFERENCED IN LINE 
NUMBER xxx. ATTRIBUTES TAKEN 
FROM PROCEDURE. 

Explanation : All procedure 
names must be declared with 
ENTRY and RETURNS attributes 
before the procedure is ref- 
erenced. 

PROCEDURE ZZZZ REFERENCED IN 
LINE NUMBER xxx CANNOT BE 
FOUND. PROCESSING TERMINATED. 



E IEM4460I 



E IEM4463I 



S IEM4469I 



E IEM4472I 



S IEM4473I 



E IEM4475I 



TOO MANY ARGUMENTS HAVE BEEN 
SPECIFIED FOR THE BUILTIN FUNC- 
TION SUBSTR IN LINE NUMBER xxx. 
EXTRA ARGUMENTS HAVE BEEN 
IGNORED . 

FIXED OVERFLOW HAS OCCURRED IN 
LINE NUMBER xxx. RESULT TRUN- 
CATED. 



System Action 



occurs 
digits. 



on left 



Truncation 
to 5 decimal 



ZERO DIVIDE HAS OCCURRFD AT 
LINE NUMBER XXX. RESULT SET TO 

ONE . 

END-OF-FILE FOUND IMBEDDED IN 
STATEMENT IN LINE NUMBER XXX. 
EXECUTION OF STATEMENT WILL 
CAUSE TERMINATION. 

IDENTIFIER BEGINNING ZZZZ IN 
STATEMENT AT LINE NUMBER XXX IS 
TOO LONG AND HAS BEEN TRUNCAT- 
ED. 

Explanation : Identifiers may 
not exceed 31 characters in 
length. 



System Action : 
is truncated to 
characters. 



The identifier 
the first 31 



CONSTANT yyyy IN LINE NUMBER 
xxx HAS PRECISION GREATER THAN 
5. A FIXED DECIMAL ZERO HAS 
BEEN INSERTED. 

Explanati on: Implementation 
restriction. Precision of 
fixed decimal numbers is limit- 
ed to 5 digits. 

System Action : A value of zero 
is assigned. 

QUESTION MARK IN LINE NUMBER 
XXX HAS NO SIGNIFICANCE. IT 
HAS BEEN IGNORED 

Explanation : Question mark, 
although a recognizable charac- 
ter in PL/I, has no syntactical 
meaning. 
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T IEM4478I 



T IEM4481I 



T IEM4484I 



T IEM4499I 



T IEM4502I 



S IEM4504I 



T IEM4505I 



STRING IN LINE NUMBER XXX CON- 
VERTS TO A FIXED DECIMAL NUMBER 
WITH PRECISION GREATER THAN 5. 
PROCESSING TERMINATED. 

Explanation ; Implementation 
restriction. Precision of 
fixed decimal numbers is limit- 
ed to 5 digits. 



System Action : 
terminated 



Processing is 



CHARACTER STRING IN LINE NUMBER 
XXX CONTAINS CHARACTER OTHER 
THAN 1 OR AND CANNOT BE 
CONVERTED TO A BIT STRING. 
PROCESSING TERMINATED. 

STRING IN LINE NUMBER XXX OR IN 
PROCEDURE REFERENCED IN SAID 
LINE NUMBER CANNOT BE CONVERTED 
TO A FIXED DECIMAL CONSTANT. 
PROCESSING TERMINATED. 

A % STATEMENT IS FOUND IN A 
REPLACEMENT VALUE IN LINE NUM- 
BER xxx. PROCESSING TERMIN- 
ATED. 



Explanation: 



A 
not 



replacement 
contain a 



value may 
compile-time statement. 

AN IDENTIFIER ZZZZ WITH CON- 
FLICTING USAGE OR MULTIPLE 
DEFINITIONS IS REFERENCED IN 
LINE NUMBER xxx. PROCESSING 
TERMINATED. 

Expl a nation : An attempt is 
made to execute a statement 
which references an identifier 
that was not properly defined. 

User Response : Correct program 

VARIABLE zzzz IS USED IN LINE 
NUMBER XXX BEFORE IT IS INI- 
TIALIZED. IT HAS BEEN GIVEN 
NULL STRING OR ZERO VALUE. 

Explanation : A value must be 
assigned to variables before 
they are referenced after being 
declared. 

DD STATEMENT FOR INCLUDE zzzz 
MISSING IN LINE NUMBER XXX. 
PROCESSING TERMINATED. 



T IEM4508I 



T IEM4511I 



T IEM4514I 



W IEM4517I 



W IEM4520I 



W IEM4523I 



ddname is specified in the 
INCLUDE statement, a SYSLIB DD 
statement is required. 



User Response : Insert 

appropriate DD statement and 
recompile. 

UNRECOVERABLE I/O ERROR WHILE 
SEARCHING FOR MEMBER OF INCLUDE 
ZZZZ IN LINE NUMBER xxx. PROC- 
ESSING TERMINATED. 

User Re s ponse : Check DD state- 
ment and reattempt compilation. 
If error persists, check com- 
puting system. 

ILLEGAL RECORD FORMAT SPECIFIED 
FOR INCLUDE zzzz IN LINE NUMBER 
xxx. PROCESSING TERMINATED. 

Explanatio n: Included records 
must be a fixed length of not 
more than 100 characters with a 
maximum blocking factor of 5. 
Blocksize must be a multiple of 
the record length. 

MEMBER OF INCLUDE zzzz IN LINE 
NUMBER xxx NOT FOUND ON DATA 
SET. PROCESSING TERMINATED. 



User Response : 
statement, DD 
data file. 



Check INCLUDE 
statement and 



RECORD LENGTH NOT SPECIFIED FOR 
INCLUDE zzzz IN LINE NUMBER 
xxx. RECORD LENGTH EQUAL TO 
BLOCKSIZE HAS BEEN ASSUMED. 

Use r Respo nse : Correct record 

length specification in DD 
statement, if necessary. 

BLOCKSIZE NOT SPECIFIED FOR 
INCLUDE ZZZZ IN LINE NUMBER 
xxx. BLOCKSIZE EQUAL TO RECORD 
LENGTH HAS BEEN ASSUMED. 

User Res p onse : Correct block- 
size specification in DD state- 
ment, if necessary. 

RECORD LENGTH AND BLOCKSIZE NOT 
SPECIFIED FOR INCLUDE zzzz IN 
LINE NUMBER xxx. RECORD LENGTH 
OF 8 AND BLOCKSIZE OF 4 00 HAVE 
BEEN ASSUMED. 



Explanation : A DD statement 
must be present, in the Job 
Control cards for the compila- 
tion, with a name in the name 
field that corresponds to the 
ddname identifier in the 
INCLUDE statement. If no 



T IEM4526I 



User Response : Correct record 
length and block size specifi- 
cations in DD statement, if 
necessary. 

I/O ERROR WHILE READING TEXT 
INCLUDED FROM ZZZZ AT LINE NUM- 
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BER xxx . 
ATED. 



PROCESSING TERMIN- 



User Response : Save relevant 
data. Call your local IBM rep- 
resentative. 



U ser Response : Check DD state- 
ment and reattempt compilation. 
If error persists, check com- 
puting system. 

T IEM4 529I IMPLEMENTATION RESTRICTION. 
EXCESSIVE LEVEL OF NESTING OR 
REPLACEMENT AT LINE NUMBER XXX. 
PROCESSING TERMINATED. 

Explanation : Level of nesting 
in this case is calculated by 
summing the number of current 
unbalanced left parentheses, 
tha number of current nested 
DO"s, the number of current 
nested IF's, and the number of 
current nested replacements. A 
level of 50 is always accepta- 
ble. 

T IEM4 53 2I INPUT RECORD AT LINE NUMBER XXX 
IS TOO LONG. PROCESSING TER- 
MINATED. 



E IEM4550I RIGHT PARENTHESIS INSERTED IN 
LINE NUMBER XXX TO END ARGUMENT 
LIST FOR PROCEDURE ZZZZ. 

Explana tion: The argument list 
referred to is in a source 
program reference to a compile- 
time procedure. 

T IEM4553I IN LINE NUMBER XXX ARGUMENT 
LIST FOR PROCEDURE ZZZZ 
CONTAINS COMPILE TIME CODE. 
PROCESSING TERMINATED. 

Explanation : Compile- time code 
may not be embedded in argument 
list of compile-time procedure 
reference. 

E IEM4559I LEFT PARENTHESIS BEGINNING 
ARGUMENT LIST OF PROCEDURE ZZZZ 
WAS NOT FOUND. PROCEDURE WAS 
INVOKED AT LINE NUMBER XXX 
WITHOUT ARGUMENTS. 



Explanation : Input record con- 
tains more than 100 characters. 

T IEM4 53 5I INPUT RECORD CONTAINS FEWER 
CHARACTERS THAN SORMGIN 
REQUIRES. PROCESSING TERMIN- 
ATED. 

Explanation : The length of the 

input record is less than the 

left margin of the SORMGIN 
specification. 

User Response : Check SORMGIN 
option on EXEC control card. 



T IEM4538I 



COMPILER ERROR. SUBSTR MUST BE 
A SINGLE WORD KEYWORD. 

Explanation : The keyword 
SUBSTR has been replaced, in 
the compiler tables, with a 
multiple keyword. The Compile- 
Time Processor cannot handle 
this situation. 

System Action : Processing is 
terminated 

User Respons e: 
multiple keyword with a single 
keyword and recompile the com- 
piler. 



Replace the 



T IEM4 547I COMPILER ERROR. 
SPACE FOR TABLES. 

System Action : 
terminated 



INSUFFICIENT 



Processing is 



Explanation : The argument list 
referred to is in a source 
program reference to a compile- 
time procedure. 

E IEM456 2I IDENTIFIER IN LINE NUMBER XXX 
EXCEEDS 31 CHARACTERS. 
REPLACEMENT WAS DONE ON TRUN- 
CATED FORM ZZZZ. 

Explana t ion : A non-compile- 
time source text identifier 
consists of more than 31 char- 
acters. 

E IEM4570I THE THIRD ARGUMENT OF BUILT-IN 
FUNCTION SUBSTR IS NEGATIVE, IN 
LINE NUMBER xxx. A NULL STRING 
HAS BEEN RETURNED. 

E IEM457 2I THE THIRD ARGUMENT OF BUILT-IN 
FUNCTION SUBSTR EXCEEDS THE 
STRING LENGTH, IN LINE NUMBER 
XXX. THE SUBSTRING HAS BEEN 
TRUNCATED AT THE END OF THE 
ORIGINAL STRING. 

E IEM4574I THE COMBINED SECOND AND THIRD 
ARGUMENTS OF BUILT-IN FUNCTION 
SUBSTR EXCEED THE STRING 
LENGTH, IN LINE NUMBER xxx. 
THE SUBSTRING HAS BEEN TRUNCAT- 
ED AT THE END OF THE ORIGINAL 
STRING. 

E IEM4576I THE SECOND ARGUMENT OF BUILT-IN 
FUNCTION SUBSTR IS LESS THAN 
ONE, IN LINE NUMBER xxx. ITS 
VALUE HAS BEEN RESET TO ONE. 



Appendix G: Diagnostic Messages 259 



E IEM4578I THE SECOND ARGUMENT OF BUILT-IN 
FUNCTION SUBSTR EXCEEDS THE 
STRING LENGTH, IN LINE NUMBER 
xxx. A NULL STRING HAS BEEN 
RETURNED . 

S IEMU580I AN UNINITIALISED VARIABLE HAS 
BEEN FOUND IN A BUILT-IN FUNC- 
TION ARGUMENT LIST, IN STATE- 
MENT NUMBER xxx. A NULL STRING 
HAS BEEN RETURNED. 



' rtname' is the name of the Library 
routine in which the error 
occurred (given only for computa- 
tional subroutines). 

'location message' is either 

OFFSET ± hhhhh FROM ENTRY POINT 
El 

or 



User Response : Initialise the 
variable before invoking the 
built-in function. 



OBJECT-TIME DIAGNOSTIC MESSAGES 



The messages in the following text may 
be printed on the output data set specified 
for SYSPRINT, as the result of an excep- 
tional or error condition occurring during 
the execution of a PL/I program. If the 
SYSPRINT DD statement is absent, then the 
object-time messages appear on the 
operator's console, except for the ON CHECK 
system action messages and the COPY option 
output, which will not be produced at all 
in this case. 

Each message number is of the form 
IHEnnnI, where the code IHE indicates a 
PL/I library message, and nnn the number of 
the message. The final character I indi- 
cates the informative nature of the mes- 
sage. 

Diagnostic messages are printed at exe- 
cution time for two main reasons: 

1. An error occurs for which no specific 
ON-condition exists in PL/I. A diag- 
nostic message is printed, and the 
ERROR ON-condition is raised. 

2. An ON-condition is raised, by compiled 
code or by the Library, and the action 
required is system action, for which 
the language specifies COMMENT as part 
of the necessary action. 

Object time diagnostic messages will 
take one of the following forms: 

1. IHEnnnI FILE name - text AT location 
message 

2. IHEnnnI rtname - text AT location mes- 
sage 

3. IHEnnnI text AT location message 

where 'name' is the name of the file 
associated with the error (given 
only in I/O diagnostic messages) 



OFFSET ± hhhhh FROM ENTRY POINT 
OF CCCC ON-UNIT 

N ote: If it is a Model 91 message 
resulting from an imprecise interrupt, 
"AT OFFSET..." is replaced by "NEAR 
OFFSET..." since the instruction 
causing the interrupt cannot be prec- 
isely identified. 

If the statement number compiler option 
has been specified, each message will also 
contain IN STATEMENT nnnnn prior to AT 
location message. nnnnn gives the number 
of the statement in which the condition 
occurred. 

The diagnostic messages for other than 
ON-type errors are mainly self-explanatory. 
Explanations in the following lists are 
given only when the message is not self- 
explanatory. 

IHE003I SOURCE PROGRAM ERROR IN 
STATEMENT nnnnn 

This message will always con- 
tain a statement number whether 
or not the compiler option is 
specified. 

IHE00 4I INTERRUPT IN ERROR HANDLER - 
PROGRAM TERMINATED 

Explanation : When an unexpect- 
ed program interrupt occurs 
during the handling of another 
program interrupt, it indicates 
that the program has a disas- 
trous error in it, such as DSA 
chain out of order, instruc- 
tions overwritten, or such. 
The program is abnormally ter- 
minated, and the above message 
is printed out at the console. 
A dump is produced with a User 
Completion Code of 4000. 

IHE005I PSEUDO-REGISTER VECTOR TOO 
LONG - PROGRAM NOT EXECUTED 

Explanation : This error arises 
when the sum of the number of 
procedures, the number of 
files, and the number of con- 
trolled variables exceeds 1000. 
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It causes return to the Super- 
visor from IHESAP; PL/I program 
is not entered. The message 
always appears at the console. 
A return code of 400 4 is gener- 
ated. 



IHE02 3I 



For output: programmer is 
trying to write more than his 
output string will hold. 



FILE name - OUTPUT 
ERROR NOT ACCEPTABLE 



TRANSMIT 



IHE006I 



NO MAIN PROCEDURE. 
TERMINATED. 



PROGRAM 



Explanation ; No external pro- 
cedure in the program has been 
given the option MAIN. This 
message appears at the console. 
A return code of 4 008 is gener- 
ated. 



Explanation ; The ERROR is 
raised, <i) upon return from a 
TRANSMIT ON-unit, if the device 
in error is other than a prin- 
ter,, or (ii) if access to a 
file by RECORD I/O has been 
attempted after the TRANSMIT 
condition has been raised for 
output. 



IHE009I 



IHEDUM*. NO PLIDUMP 
EXECUTION TERMINATED. 



DD CARD. 



IHE024I 



FILE name - PRINT OPT I ON/ FORMAT 
ITEM FOR NCN-PRINT FILE 



Explanation ; Execution has been 
abnormally terminated with a 
dump and a completion code of 
(3000 + Return Code (if set)) 



Explanation ; Attempt to use 
PAGE, LINE or SKIP < for a 
non-print file. 



IHE010I PROGRAM ENDED BY OS360. RETURN 
CODE = hhh (a hexadecimal 
number) . 



IHE025I 



DISPLAY - MESSAGE OR REPLY AREA 
LENGTH ZERO 



IHE011I 



Explanation ; The major task has 
been terminated abnormally by 
the operating system. The 
above message appears on the 
console. 



KEY ERROR WHEN CLOSING FILE 
END OF TASK 



AT 



Explanation ; An unresolved key 
error exists for which no con- 
dition can now be raised. The 
above message appears on the 
console. 



IHE026I 



IHE027I 



Explanatio n; This message 
appears only if the REPLY 
option is exercised. 

FILE name - DATA DIRECTED INPUT 
- INVALID ARRAY DATUM 

Explanation ; Number of sub- 
scripts on external medium does 
not correspond to number of 
declared subscripts. 



GET STRING - 
DATA NAME 



UNRECOGNIZABLE 



I/O Errors 



IHE018I 



IHE020I 



IHE021I 



IHE022I 



FILE name - FILE TYPE NOT SUP- 
PORTED 

FILE name - ATTEMPT TO READ 
OUTPUT FILE 

FILE name - ATTEMPT TO WRITE 
INPUT FILE 

GET/PUT STRING EXCEEDS STRING 
SIZE 

Explanation ; 

For input: programmer has 
requested more than exists on 
the input string. 



IHE029I 



Explanation ; 

1. GET DATA - name of data 
item found in string is 
not known at the time of 
the GET statement, or 

2. GET DATA data list - name 
of data item found in 
string is not specified in 
the list. 



FILE name 
OPERATION 



- UNSUPPORTED FILE 



Explanatio n; Programmer has 
executed an I/O statement with 
an option or verb not applica- 
ble to the specified file. 
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IHE030I 



IHE031I 



IHE032I 



For example ; 

I/O Option 
or Verb 

READ SET | 
LOCATE 



REWRITE 

(without FROM) 
EXCLUSIVE | 
UNLOCK | 
(READ NOLOCK) 

KEYTO 



LINESIZE 
PAGE SIZE 



File At t ribute 

DIRECT | 

(SEQUENTIAL 

UNBUFFERED) 

(SEQUENTIAL 
INPUT | OUTPUT | 
UPDATE) | 
(DIRECT INPUT | 
OUTPUT) 

REGIONAL 
DIRECT 

STREAM (INPUT | 
UPDATE) 



FILE name - REWRITE/DELETE NOT 
IMMEDIATELY PRECEDED BY READ 



FILE name - INEXPLICABLE 
ERROR 



I/O 



Explanation : Data Management 
has detected some error in the 
current I/O operation, but has 
provided no further details. 



FILE name - OUTSTANDING 
FOR UPDATE EXISTS 



READ 



IHE037I 



IHE038I 



IHE039I 



Explanation : There has been a 
failure in an implicit OPEN 
operation. 



FILE name - ATTEMPT TO 
OUT OF SEQUENCE 



REWRITE 



ExDlanation: 



An intervening 



I/O statement occurs between a 
READ statement and a REWRITE 
statement referring to the same 
record. 

FILE name - ENDFILE FOUND UNEX- 
PECTEDLY IN MIDDLE OF DATA 
ITEM. 

E x p lana tion: The ERROR condi- 
tion is raised when end-of-file 
is encountered before the deli- 
miter when scanning list- 
directed or data-directed 
input, or if the field width in 
the format list of edit- 
directed input would take the 
scan beyond the end-of-file. 

FILE name - ATTEMPT TO CLOSE 
FILE NOT OPENED IN CURRENT TASK 



I/O ON- conditions 

All these conditions may be raised by 
the SIGNAL statement. 



IHE033I 



IHE034I 



IHE035I 



Expla n ation : When 
read from an INDEX 
contains blocked 
which is open 
UPDATE, the record 
ritten. Between 
statement and th 
REWRITE statement 
operation may be 
the file. 



a record is 

ED file which 

records and 

for DIRECT 

must be rew- 

the READ 

e associated 

, no other 

performed on 



IHE100I 



FILE name - NO COMPLETED READ 
EXISTS (INCORRECT NCP VALUE) 

Explanation : This message may 
be issued because the correct 
NCP value has not been speci- 
fied or it may be due to incor- 
rect source code. 

FILE name - TOO MANY INCOMPLETE 
I/O OPERATIONS 

Explanation : The number of 
incomplete I/O operations 
equals the NCP value. 



FILE name - EVENT 
ALREADY IN USE 



VARIABLE 



IHE110I 



IHE111I 



FILE name - UNRECOGNIZABLE DATA 
NAME 

Explanat ion : 

Initiating ON-condition: NAME 

1. GET DATA - name of data 
item found on external 
medium is not known at the 
time of the GET statement, 
or 

2. GET DATA data list - name 
of data item found on 
external medium is not 
specified in the list. 



FILE name - RECORD 
SIGNALED 



CONDITION 



FILE name - RECORD VARIABLE 
SMALLER THAN RECORD SIZE 

Explanatio n: The variable 
specified in the READ statement 
INTO option allows fewer char- 
acters than exist in the 
record. 



IHE036I FILE name - IMPLICIT OPEN FAIL- 
URE, CANNOT PROCEED 



F format records: 

a WRITE statement attemots to 
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IHE112I 



IHE113I 



IHE114I 



IHE120I 



IHE121I 



put a record smaller than the 
record size. 



All formats: 

a REWRITE attempts to replace 
a record with one of smaller 
size. (Note: This condition 
cannot be detected for U- 
format records read for 
UNBUFFERED or DIRECT files.) 

FILE name - RECORD VARIABLE 
LARGER THAN RECORD SIZE 

Explan a tion : The variable 
specified in the READ statement 
INTO option requires more char- 
in the 
statement 
a record 
available 
REWRITE 



acters than exist 
record; or a WRITE 
attempts to put out 
greater than the 
record size; or a 
statement attempts to replace a 
record with one of greater 
size. 



ATTEMPT TO WRITE/LOCATE 
LENGTH RECORD 



ZERO 



Explanation : A WRITE or REW- 
RITE statement attempts to put 
out a record of zero length, or 
a LOCATE statement attempts to 
get buffer space for a record 
of zero length; such records 
are used for end-of-f ile mark- 
ers for direct access storage 
devices. 



FILE 
READ 



name - ZERO LENGTH RECORD 



Explanation : A record of zero 
length has been read from a 
REGIONAL data set accessed in 
the DIRECT mode. This should 
not occur, unless the data set 
was created by another proc- 
essor. A zero length record, 
on a direct access device, is 
an end-of-file signal. 

FILE name - PERMANENT INPUT 
ERROR 

Explanation : 

Initiating ON-CONDITION: 
TRANSMIT 

FILE name - PERMANENT OUTPUT 
ERROR 

Explanation : 

Initiating ON'- condition: 
TRANSMIT 



IHE122I 
IHE130I 
IHE131I 



IHE132I 



IHE13UI 



IHE1 3 dI 



FILE name - TRANSMIT CONDITION 
SIGNALED 



FILE name - KEY CONDITION 
NALED 



SIG- 



FILE name - KEYED RECORD NOT 
FOUND 

Explanation : READ, REWRITE, or 
DELETE statement specified 
record key which does not match 
with records of data set. If 
REGIONAL (2) or (3) data sets 
are employed, and the DD state- 
ment paraneter LIMCT is used, 
then the record does not exist 
within the number of records or 
tracks searched, but may exist 
elsewhere. 



FILE name - ATTEMPT 
DUPLICATE KEY 



TO ADD 



Expla nation: WRITE statement 
specified a key value which 
already exists within data set. 

1. INDEXED data sets: 
detected for both SEQUEN- 
TIAL and DIRECT access. 

2. REGIONAL data sets: 
detected only for REGIONAL 
(1) and (2) SEQUENTIAL 
output . 

IHE133I FILE name - KEY SEQUENCE ERROR 

Explanation : WRITE statement 
specified, during creation of 
data set (OUTPUT SEQUENTIAL), a 
key which for: 

1. INDEXED data sets is lower 
in binary collating 
sequence than prior key 

2. REGIONAL data sets the 
relative record/track 
value is lower than that 
of prior key. 



FILE name - KEY 
ERROR 



CONVERSION 



Explanatio n: WRITE, READ, REW- 
RITE, or DELETE statement for 
REGIONAL data set specified 
character string key value 
whose relative record/track 
partition contains characters 
other than blank or the digits 
through 9, or which contains 
only the character blank. 

FILE name - KEY SPECIFICATION 
ERROR 
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Explanation : 



Explanation; 



IHE136I 



IHE137I 



1,. INDEXED: the KEYFROM or 
KEY expression may be the 
NULL string. Alternative- 
ly, RKP does not equal 
zero and the embedded key 
is not identical with that 
specified by the KEYFROM 
option (or the KEY option 
in the case of a rewrite 
statement). A third pos- 
sibility is that an 
attempt has been made dur- 
ing SEQUENTIAL UPDATE to 
replace a record by one 
whose embedded key does 
not match that of the ori- 
ginal record. 

2. REGIONAL: as for INDEXED, 
or initial character of 
KEY or KEYFROM expression 
value is the value 
(8) '1«B. 

FILE name - KEYED RELATIVE 
RECORD/TRACK OUTSIDE DATA SET 
LIMIT 

Explanation : WRITE, READ, REW- 
RITE, or DELETE statement for 
REGIONAL data set specified a 
key whose relative record/track 
value exceeds the number of 
records or tracks assigned to 
the data set. 



FILE name - NO SPACE 
TO ADD KEYED RECORD 



AVAILABLE 



IHE140I 



Explanation : WRITE statement 
attempted to add record, but 
data set was full. If REGIONAL 
(2) or (3) data set, condition 
is raised if space within 
optional limits (DD parameter 
LIMCT) is unavailable. 

FILE name - END OF FILE ENCOUN- 
TERED 



Initiating ON-condition: 
UNDEFINED FILE 

There is a conflict between the 
declared PL/I file attributes. 
For example: 

Attribute Conflicting 
Attributes 

PRINT INPUT, UPDATE, 
RECORD, DIRECT, 
SEQUENTIAL, 
BACKWARDS, BUFFERED, 
UNBUFFERED, 
EXCLUSIVE, KEYED 

STREAM UPDATE, RECORD, 

DIRECT, SEQUENTIAL, 
BACKWARDS, BUFFERED, 
UNBUFFERED, 
EXCLUSIVE, KEYED 

EXCLUSIVE INPUT, OUTPUT, 
SEQUENTIAL, 
BACKWARDS, BUFFERED, 
UNBUFFERED 

DIRECT SEQUENTIAL, 

BACKWARDS, BUFFERED, 
UNBUFFERED 

UPDATE INPUT, OUTPUT, 
BACKWARDS 

OUTPUT INPUT, BACKWARDS 

BUFFERED UNBUFFERED 

Some attributes may have been 
supplied when a file is opened 
implicitly. Example of attri- 
butes implied by I/O statements 
are: 

I/O 
Statement Implied Attributes 

DELETE RECORD,, DIRECT, 
UPDATE 



Explanation : 

Initiating ON-condition: 

ENDFILE 



GET INPUT 

LOCATE RECORD, OUTPUT, 

SEQUENTIAL, BUFFERED 



IHE150I FILE name - CANNOT BE OPENED, 
NO DD CARD 

Explanation : 

Initiating ON-condition: 
UNDEFINEDFILE 

IHE151I FILE name - CONFLICTING DECLARE 
AND OPEN ATTRIBUTES 



PUT OUTPUT 

READ RECORD, INPUT 

REWRITE RECORD, UPDATE 



UNLOCK 



WRITE 



RECORD, DIRECT, 
UPDATE, EXCLUSIVE 

RECORD, OUTPUT 
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In turn, certain attributes may 
imply other attributes : 



Attribute Implied Attributes 

BACKWARDS RECORD, SEQUENTIAL, 
INPUT 



BUFFERED RECORD, SEQUENTIAL 

DIRECT RECORD., KEYED 

EXCLUSIVE RECORD, KEYED, 

DIRECT, UPDATE 



KEYED 



RECORD 



PRINT OUTPUT, STREAM 

SEQUENTIAL RECORD 

UNBUFFERED RECORD, SEQUENTIAL 

UPDATE RECORD 

Finally, a group of alternate 
attributes has one of the group 
as a default. The default is 
implied if none of the group is 
specified explicitly or is 
implied by other attributes or 
by the opening I/O statement. 
The groups of alternates are: 



Group 
STREAM! RECORD 



Default 



STREAM 



INPUT | OUTPUT | UPDATE INPUT 

SEQUENTIAL | DIRECT SEQUENTIAL 
(RECORD files) 

BUFFERED | UNBUFFERED B UFFERED 
(SEQUENTIAL files) 

IHE152I FILE name - FILE TYPE NOT SUP- 
PORTED 

Explanation ; 

Initiating ON-condition: 
UNDEFINEDFILE 

The user has attempted to asso- 
ciate a paper-tape device with 
a file that does not have the 
INPUT attribute. 

IHE153I FILE name - BLOCKSIZE NOT SPEC- 
IFIED 

Explanation ; 

Initiating ON-condition: 
UNDEFINEDFILE 



IHE154I 



IHE155I 



IHE156I 



IHE157I 



Block size not specified on DD 
card, nor on environment. How- 
ever, will never occur for 
PRINT file, because default 
block size is assumed. 

FILE name - UNDEFINEDFILE CON- 
DITION SIGNALED 

FILE name - ERROR INITIALIZING 
REGIONAL DATA SET 

Explanation ; 

Initiating ON-condition: 
UNDEFINEDFILE 

A REGIONAL data set, opened for 
DIRECT OUTPUT, cannot be pro- 
perly formatted during the open 
process. 

FILE name - CONFLICTING ATTRI- 
BUTE AND ENVIRONMENT PARAMETERS 

Explanation ; 

Initiating ON-condition: 
UNDEFINEDFILE 

Examples of conflicting param- 



eters NAME 
assumed. are: 

ENVIRONMENT 
Parameter 

No file 

organization 

parameter 



block 



size is 



File Attribute 



KEYED 



INDEXED | REGIONAL STREAM 
CONSECUTIVE 



INDEXED 



DIRECT | 
EXCLUSIVE 

DIRECT OUTPUT 



INDEXED | REGIONAL OUTPUT without 
KEYED 

Blocked records UNBUFFERED 

V- format records BACKWARDS 

FILE name - CONFLICTING ENVIR- 
ONMENT AND /OR DD PARAMETERS 

Explanation ; 

Initiating ON-condition: 
UNDEFINEDFILE 

One of the following conflicts 
exists: 

1. F-format records have not 
been specified for an 
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INDEXED,. REGIONAL (1), or 
REGIONAL(2) file. 



F-format records 32758 



2. Blocked records have been 
specified with a REGIONAL 
file. 

IHE158I FILE name - KEYLENGTH NOT SPEC- 
IFIED 

Explanation : 

Initiating ON-condition: 

UNDEFINED FILE 

A keylength has not been speci- 
fied for an INDEXED, 
REGI ONAL ( 2 ) , or RE GI ONAL ( 3 ) 
file that is being opened for 
OUTPUT. 

IHE159I FILE name - INCORRECT BLOCKSIZE 
AND/ OR LOGICAL RECORD SIZE IN 
STATEMENT NUMBER XXX 

Explanation ; 

Initiating ON-condition: 
UNDEFINEDFILE 

One of the following situations 
exists: 

1. F-format record s 

a. The specified block 
size is less than the 
logical record length. 

b. The specified block 
size is not a multiple 
of the logical record 
length. 

2. V- format records 

a. The specified block 
size is less than the 
logical record length 
+ 4. 

b. The logical record 
length is less than 14 
for a RECORD file or 
15 for a STREAM file. 

IHE160I FILE name - LINES IZE GREATER 
THAN IMPLEMENTATION DEFINED 
MAXIMUM LENGTH 

Explanation : 

Initiating ON-condition: 
UNDEFINEDFILE 

The implementation-defined max- 
imum linesize is: 



IHE161I 



V-format records 32750 



FILE name - CONFLICTING ATTRI- 
BUTE AND DD PARAMETERS 



Explanatio n: 



Initiating ON-condition: 
UNDEFINEDFILE 



The user has attempted to asso- 
ciate a file with the BACKWARDS 
attribute with a device that is 
not a magnetic tape device. 



Comp ut a tional Errors 

IHE200I rtname - X LT IN SQRT(X) 

IHE202I rtname - X LT IN LOG(X) OR 

LOG2(X) OR LOGIO(X) 



IHE203I rtname - ABS(X) GE (2**50)*K IN 
SIN(X) OR COS(X) (K=PI) OR 
SIND(X) OR COSD(X) (K=180) 



IHE204I rtname - ABS(X) GE (2**50) *K IN 
TAN(X) (K-PI) OR TAND(X) 
(K=180) 



IHE206I rtname - X~Y-0 IN ATAN(Y,X) AND 
ATAND(Y,X) 



IHE208I rtname - ABS(X) GT 1 IN 
ATANH(X) 



IHE209I rtname - X~0» Y LE IN X**Y 



IHE210I rtname - X*0, Y NOT POSITIVE 
REAL IN X**Y 



IHE211I rtname - Z=+I OR -I IN ATAN(Z) 
OR Z=+l OR -1 IN ATANH(Z) 



IHE212I rtname - ABS(X) GE (2**18 )*K IN 
SIN(X) OR COS(X) (K=PI) OR 
SIND(X) OR COSD(X) (K=180) 

IHE213I rtname - ABS(X) GE (2**18) *K IN 
TAN(X) (K-PI) OR TAND(X) 
(K=180) 
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List of Routine Names 

IHESQS Short float square root 

IHELNS Short float logarithm 

IHETNS Short float tangent 

IHEATS Short float arctan 

IHESNS Short float sine and cosine 

IHEHTS Short float hyperbolic arctan 

IHESQL Long float square root 

IHELNL Long float logarithm 

IHETNL Long float tangent 

IHEATL Long float arctan 

IHESNL Long float sine and cosine 

IHEflTL Long float hyperbolic arctan 

IHEXIS Short float integer exponentia- 
tion 

IHEXIL Long float integer exponentia- 
tion 

IHEXXS Short float general exponentia- 
tion 

IHEXXL Long float general exponentia- 
tion 

IHEXIW Short float complex integer 
exponent iati on 

IHEXIZ Long float complex integer 
exponentiation 

IHEXXW Short float complex general 
exponent ia t i on 

IHEXXZ Long float complex general 
expo nent ia t i on 

IHEATW Short float complex arctan and 
hyperbolic arctan 

IHEATZ Long float complex arctan and 
hyperbolic arctan 



Computational ON-Conditions 

All these conditions may be raised by 
the SIGNAL statement. 

IHE300I OVERFLOW 

Explanation ; This condition is 
raised, by Library routines or 
by compiled code, when the 



IHE310I 



IHE320I 



IHE330I 



IHE3^0I 



IHE350I 



exponent of a floating-point 
number exceeds the permitted 
maximum, as defined by implem- 
entation. 



SIZE 

Explanation : This condition is 
raised,, by Library routines or 
by compiled code, when assign- 
ment is attempted where the 
number to be assigned will not 
fit into the target field. 
This condition can be raised by 
allowing the fixed overflow 
interrupt to occur on account 
of SIZE. If associated with 
I/O, then "FILE name" will be 
inserted between the message 
number and the text. 

FIXEDOVERFLOW 

Explanation ; This condition is 
raised, by Library routines or 
by compiled code, when the 
result of a fixed-point binary 
or decimal operation exceeds 
the maximum field width as 
defined by implementation. 



condition is 

routines or 

when an 

to divide by 

the quotient 

ion allocated 

a division. 

be raised by 

or by spe- 



ZERODIVIDE 

Explanation ; This 
raised, by Library 
by compiled code 
attempt is made 
zero, or when 
exceeds the precis 
for the result of 
The condition can 
hardware interrupt 
cial coding. 

UNDERFLOW 



Explanati on ; This condition is 
raised, by Library routines or 
by compiled code, when the 
exponent of a floating-point 
number is smaller than the 
implementation- defined mimimum. 
The condition does not occur 
when equal floating-point 
numbers are subtracted. 

STRINGRANGE 

Explanation ; This condition is 
raised by library routines when 
an invalid reference by the 
SUBSTR built-in function or 
pseudo- variable has been 
detected, 



IHE360I 



AREA CONDITION RAISED IN 
CATE STATEMENT 



ALLO- 
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IHE3 61I 



Explanation : There is not 
enough room in the area in 
which to allocate the based 
variable. 



AREA CONDITION RAISED 
ASSIGNMENT STATEMENT 



IN 



Explanation : There is not 
enough room in the area to 
which the based variable is 
being assigned. 



IHE3 62I AREA SIGNALED 



Errors Associated with Tasking 

The following errors are associated with 
execution of the CALL* READ, or WRITE 
statement with TASK option; with the WAIT 
statement; with the use of TASK or EVENT 
variables; with the PRIORITY pseudo- 
variable or built-in function; or with the 
COMPLETION pseudo- variable. 



IHE550I 



IHE551I 



ATTEMPT TO WAIT ON AN 
AND INCOMPLETE EVENT 



INACTIVE 



TASK VARIABLE ALREADY ACTIVE 



Structure and Array Errors 



IHE380I 



IHESTR - STRUCTURE OR 
LENGTH GE 16**6 BYTES 



ARRAY 



IHE552I 



Explanation : Task variable is 
already associated with an 
active task. 

EVENT ALREADY BEING WAITED ON 



IHE3 81I 



Explanation : During the map- 
ping of a structure or array, 
the length of the structure or 
array has been found to be 
greater than or equal to 16**6 
bytes . 



IHESTR - VIRTUAL ORIGIN 
ARRAY GE 16**6 OR LE -16**6 



OF 



Explanation : During the map- 
ping of a structure, the 
address of the element with 
zero subscripts in an array, 
whether it exists or not, has 
been computed to be outside the 
range (-16**6 to +16**6). 



IHE553I 
IHE554I 

IHE555I 



Explanation : During the execu- 
tion of a WAIT statement, in 
order to complete the required 
number of events, an event must 
not be waited on which is 
already being waited on in 
another task. 



WAIT ON MORE 
PLETE EVENTS 



THAN 2 55 INCOM- 



ACTIVE EVENT VARIABLE AS ARGU- 
MENT TO COMPLETION PSEUDO- 
VARIABLE 



INVALID 

ARGUMENT 

VARIABLE 



TASK VARIABLE AS 
TO PRIORITY PSEUDO- 



Co n trol P rogram Restr ict i ons 

IHE4 00I DELAY STATEMENT EXECUTED - NO 
TIMER FUNCTION IN SYSTEM 

IHEU01I TIME STATEMENT EXECUTED - NO 
TIMER FUNCTION IN SYSTEM 



IHE556I 



Explana tion: The task variable 
specified was active and not 
associated with the current 
task or one of its immediate 
subtasks. 



EVENT VARIABLE ACTIVE 
ASSIGNMENT STATEMENT 



IN 



Co ndition Type ON-Conditions 
IHE500I SUBSCRIPTRANGE 



IHE501I 



Explanation : This condition is 
raised, by library routines or 
by compiled code, when a sub- 
script is evaluated and found 
to lie outside its specified 
bounds, or by the SIGNAL state- 
ment. 

CONDITION 

Explanation : This condition is 
raised by execution of a SIGNAL 
(identifier) statement, ref- 
erencing a programmer-specified 
EXTERNAL identifier. 



IHE557I EVENT VARIABLE ALREADY ACTIVE 

Explanati on: Event variable is 
already associated with an 
active task. 

IHE55 8I ATTEMPT TO WAIT ON AN I/O EVENT 
IN WRONG TASK 

Explanatio n: An I/O event can 
be waited on only in the same 
task as the statement which 
initiated the I/O operation 
with which the event is asso- 
ciated. 



In the 
messages, 
number. 



following group of 
hhh is a hexadecimal 
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IHE571I 
IHE572I 

IHE573I 
IHE574I 



TASK (name) TERMINATED. 
PLETION CODE= hhh. 



COM- 



IHE575I 



IHE576I 



IHE577I 



IHE579I 



TASK (name) TERMINATED. COM- 
PLETION CODE = hhh,. EVENT 
VARIABLE OVERWRITTEN OR DEST- 
ROYED. 

TASK (name) TERMINATED. COM- 
PLETION CODE = hhh. TASK VARI- 
ABLE OVERWRITTEN OR DESTROYED. 

TASK (NAME) TERMINATED. COM- 
PLETION CODE = hhh. INVALID 
FREE STATEMENT. 

Expl a nati on: The FREE statement 
freed, or tried to free, stor- 
age to which it is not applica- 
ble. 

TASK (name) TERMINATED. COM- 
PLETION CODE = hhh. DISPLAY 
STATEMENT. REPLY NOT WAITED 
FOR. 

Explanation : The task termin- 
ated normally without waiting 
for a reply from a DISPLAY 
statement with the REPLY 
option. 

TASK (name) TERMINATED. COM- 
PLETION CODE = hhh. TOO MUCH 
MAIN STORAGE REQUESTED. 

TASK (name) TERMINATED WHILE 
STILL ACTIVE — END OF BLOCK 
REACHED IN ATTACHING TASK. 



Explanation : 
task reached; 



The attaching 



1. An EXIT statement, or 

2. The end of the block in 
which the subtask was 
attached 

while the subtask was still 
active. 

TASK (name) TERMINATED. COM- 
PLETION CODE = hhh. ABNORMAL 
TERMINATION DURING PUT STATE- 
MENT. 



Conversion ON-Conditions 

Conversion errors occur most often on 
input, either owing to an error in the 
input data, or because of an error in a 
format list. For example, in edit-directed 
input, if the field width of one of the 
items in the data list is incorrectly 
specified in the format list, the input 
stream will get out of step with the format 



list and a 
occur. 

IHE600I 

IHE601I 

IHE602I 

IHE603I 

IHE60UI 

IHE605I 

IHE606I 

IHE607I 
IHE608I 
IHE609I 



conversion error is likely to 



CONVERSION CONDITION SIGNALED 

CONVERSION ERROR IN F- FORMAT 
INPUT 

CONVERSION ERROR IN E-FORMAT 
INPUT 

CONVERSION ERROR IN B- FORMAT 
INPUT 

ERROR IN CONVERSION FROM CHAR- 
ACTER STRING TO ARITHMETIC 

ERROR IN CONVERSION FROM CHAR- 
ACTER STRING TO BIT STRING 

ERROR IN CONVERSION FROM CHAR- 
ACTER STRING TO PICTURED CHAR- 
ACTER STRING 



CONVERSION ERROR 
INPUT (DECIMAL) 



IN P- FORMAT 



CONVERSION ERROR IN P- FORMAT 
INPUT (CHARACTER) 



CONVERSION ERROR 
INPUT (STERLING) 



IN P- FORMAT 



Note : When condition was due 
to an I/O conversion, then 
"FILE name" will be inserted 
between the message number and 
the text. Also, when the I/O 
conversion error was due to a 
TRANSMIT error, the word 
(TRANSMIT) is inserted between 
the file name and the text. 



Convers ion Errors, Non-ON-Type 

E(W,D,S) 



IHE700I 

IHE701I 

IHE70 2I 

IHE703I 

IHE704I 
IHE705I 



INCORRECT 
CATION 



SPECIFI- 



IHE706I 



F FORMAT W SPECIFICATION TOO 
SMALL 

A FORMAT tf UNSPECIFIED AND LIST 
ITEM NOT TYPE STRING 

B FORMAT W UNSPECIFIED AND LIST 
ITEM NOT TYPE STRING 

A FORMAT W UNSPECIFIED ON INPUT 

B FORMAT W UNSPECIFIED ON INPUT 

Explanations : Messages 700 to 
705 reveal that an EDIT opera- 
tion was incorrectly specified. 

UNABLE TO ASSIGN TO PICTURED 
CHARACTER STRING 
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Explanation : A source datum 
which is not a character string 
cannot be assigned to a pic- 
tured character string because 
of a mismatch with the PIC 
description of the target. 



The use of the value of a variable that 
has not been initialized, or has had no 
assignment irade to it, or the use of 
CONTROLLED variables that have not been 
allocated, may also cause one of these 
interrupts. 



IHE798I 



ONSOURCE OR ONCHAR PSEUDOVARIA- 
BLE USED OUT OF CONTEXT 



IHE800I 



INVALID OPERATION 



Explanation ; This message is 
printed and the ERROR condition 
raised if an ONSOURCE or ONCHAR 
pseudo-variable is used outside 
an ON-unit, or in an ON-unit 
other than either a CONVERSION 
ON-unit or an ERROR or FINISH 
ON-unit following from system 
action for CONVERSION. 

IHE799I RETURN ATTEMPTED FROM CONVER- 
SION ON-UNIT BUT SOURCE FIELD 
NOT MODIFIED 

Explanation : A CONVERSION ON- 
unit has been entered as a 
result of an invalid 
conversion, and an attempt has 
been made to return, and hence 
reattempt the conversion, with- 
out using one or other of the 
pseudo- variables ONSOURCE or 
ONCHAR to change the invalid 
character. 



Non- Computational Program Interrupt Errors 

Certain program interrupts may occur in 
a PL/I program because the source program 
has an error which is severe but which 
cannot be detected until execution time. 
£n example is a call to an unknown proce- 
dure, which will result in an illegal 
operation program interrupt. Other program 
interrupts, such as addressing, specifi- 
cation, protection, and data interrupts, 
may arise if PL/I control blocks have been 
destroyed. This can occur if an assignment 
is made to an array element whose subscript 
is out of range, since, if SUBSCRIPTRANGE 
has not been enabled, the compiler does not 
check array subscripts; a program interrupt 
may occur at the time of the assignment or 
at a later stage in the program. Similar- 
ly, an attempt to use the value of an array 
element whose subscript is out of range may 
cause an interrupt. 

Care must be taken when parameters are 
passed to a procedure. If the data attri- 
butes of the arguments of the calling 
statement do not agree with those of the 
invoked entry point, or if an argument is 
not passed at all, a program interrupt may 
occur . 



IHE801I PRIVILEGED OPERATION 



IHE80 2I EXECUTE INSTRUCTION EXECUTED 

IHE803I PROTECTION VIOLATION 

IHE804I ADDRESSING INTERRUPT 

IHE805I SPECIFICATION INTERRUPT 

IHE806I DATA INTERRUPT 

Explanati on: This condition 
can be caused by an attempt to 
use the value of a FIXED DECI- 
MAL variable when no prior 
assignment to, or initializa- 
tion of, the variable has been 
performed. 



Model 9 1 Object-Time Diag no stic Messages 

After a multiple-exception imprecise 
interrupt on a Model 9 1^ certain exceptions 
will remain unprocessed if the ERROR condi- 
tion is raised before all the exceptions 
have been handled. If the program subse- 
quently is terminated as a direct result of 
the ERROR condition being raised in these 
circumstances, one or more of the following 
messages will be printed out. 

IHE810I PROTECTION EXCEPTION UNPRO- 
CESSED AFTER MULTIPLE -EXCEPTION 
IMPRECISE INTERRUPT 

IHE811I ADDRESSING EXCEPTION UNPRO- 
CESSED AFTER MULTIPLE- EXCEPTION 
IMPRECISE INTERRUPT 

IHE812I SPECIFICATION EXCEPTION UNPRO- 
CESSED AFTER MULTIPLE-EXCEPTION 
IMPRECISE INTERRUPT 

IHE813I DATA EXCEPTION UNPROCESSED 
AFTER MULTIPLE- EXCEPT I ON IMPRE- 
CISE INTERRUPT 

IHE814I ZERODIVIDE UNPROCESSED AFTER 
MULTIPLE-EXCEPTION IMPRECISE 
INTERRUPT 

IHE815I OVERFLOW UNPROCESSED AFTER 
MULTIPLE- EXCEPTION IMPRECISE 
INTERRUPT 
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Storage Management Errors 

The following errors are associated with 
the handling of storage and transfer of 
control out of blocks. In some cases, 
these errors are a result of program error, 
but it is possible that the messages may be 
printed because the save area chain, allo- 
cation chain, or pseudo-register vector 
have been overwritten. 



IHE902I 



entry parameter procedure is 
one that passes an entry name 
as parameter to a procedure it 
calls. The total permissible 
number of these ON^-un its/entry 
parameter procedures is 127. 



GOTO STATEMENT REFERENCES 
LABEL IN AN INACTIVE BLOCK 



IHE900I 



TOO MANY ACTIVE ON- UNITS 
ENTRY PARAMETER PROCEDURES 



AND 



Explanation : There is an 
implementation limit to the 
number of ON-units and/or entry 
parameter procedures which can 
be active at any time. An 



Explanation : The label 
referred to cannot be found in 
any of the blocks currently 
active in the current task; 
blocks are not freed. The 
statement number and offset 
indicate the GO TO statement 
causing the error. 
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APPENDIX H: LANGUAGE FEATURES RESTRICTED OR NOT SUPPORTED IN THE FOURTH VERSION 



This appendix details the PL/I language 
features which are not implemented by the 
fourth version of the PL/I (F) Compiler, or 
which are implemented with restrictions. 



IDENT Option 



The IDENT option on OPEN/CLOSE state- 
ments is not permitted. 



EVENT Option in the DISPLAY Statement 



If the EVENT option is specified in the 
DISPLAY statement, it must follow the REPLY 
option. 



E xample ; 



DISPLAY ('LEGAL') EVENT 
(ANSWER); /* ILLEGAL*/ 



(El) REPLY 



DISPLAY ('LEGAL') REPLY (ANSWER) EVENT 
(El) ; /+LEGAL*/ 



DEFINED Attribute 

Overlay defining is not permitted if the 
base is either subscripted or is declared 
CONTROLLED. Correspondence defining is not 
permitted if the base is declared CON- 
TROLLED . 

Example; 

DCL B CONTROLLED, C(10) AUTOMATIC; 

DCL 

A DEFINED B, /+ILLEGAL*/ 

E DEFINED C(I) f /+ILLEGAL*/ 

F (10) DEFINED C; /* LEGAL*/ 

No correspondence defining may be used 
with arrays of structures. 

Example : 

DCL 1 A (10) , 2 B, 2 C; 

DCL 1 D (5) DEFINED A, 2 E, 2 F; /+ILLEGAL*/ 
DCL D (5) DEFINED B; /* LEGAL*/ 



Structu re s and Arrays of Structures in 
Certai n Special Contexts 



EVENT Option in the WRITE Statement 



The EVENT option should not be used in 
the WRITE statement if V or U format 
records are being added to a REGIONAL (3) 
data set which is being accessed in a 
DIRECT UPDATE mode. 



INITIAL Attribute 



An INITIAL attribute given for CHARACTER 
or BIT data of STATIC storage class may not 
specify 'complex expressions' as initial 
values. 

Example : 



DCL C CHAR (10) 

STATIC INITIAL (3+41); 



/♦ILLEGAL*/ 



DCL C CHAR (10) 

STATIC INITIAL (' 3+41 ' ) ; /* LEGAL*/ 



No structure or array of structures may 
be passed as an argument to either a 
built-in function (except the STRING, ADDR, 
and ALLOCATION functions) , or to a proce- 
dure declared with the attribute GENERIC. 

Exampl e: 

DCL 1 A (10) , 2 B; 



A=SIN(A) ; 
B=SIN(B) ; 



/♦ILLEGAL*/ 
/♦LEGAL*/ 



No reference may be made to both a 
structure and an array of structures in the 
same expression or assignment. 



Example: 










DCL 


1 A(10) , 


2 B, 


2 


c. 




1 F(10), 


2 B, 


2 


c. 




1 P, 2 Q, 


2 R; 






A=P; 










A=F; 










A(I) 


=P; 








A=F, 


BY NAME, 








A=F(I) , BY NAME; 







/♦ILLEGAL*/ 
/* LEGAL*/ 
/♦LEGAL*/ 
/♦LEGAL*/ 
/♦ILLEGAL*/ 
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No references can be made to cross 
sections of arrays of structures; the whole 
of an array of structures may be ref- 
erenced, or a single element of the array 
iray be referenced, but not a cross section. 

Example : 

DCL 1 A(10,10), 2 B, 2 C(10,10); 
DCL 1 X(10>, 2 Y, 2 Z(10,10); 



Example: 



A(*,J)=X; 

A=A+1; 

A(I,J)=X(I); 



/♦ILLEGAL*/ 

/♦LEGAL*/ 

/♦LEGAL*/ 



A cross-section of an EVENT array is not 
permitted to appear in a WAIT statement. 

Example : 

DCL EVT (10,10,, 2) EVENT; 

WAIT (EVT) 200; /*LEGAL*/ 

WAIT (EVT (I, J,2))100; /+LEGAL*/ 

WAIT (EVTd, *,1) )10; /+ILLEGAL*/ 



V ARYING Strings 



The only form of varying strings permit- 
ted in the INTO or FROM options in RECORD 
I/O are unsubscripted levell VARYING 
strings that are not members of arrays or 
structures. 



Interleaved Arrays of Varying string s 
Passed a s Arguments 



A varying string, passed as part of an 
argument to a procedure, cannot have its 
length changed within the invoked procedure 
if all the following circumstances apply: 



the argument passed is in the form 
a subscripted structure 



of 



in the invoked procedure, the varying 
string is regarded as a scalar 



in the calling procedure, 
string is one element 
leaved array. (An inter 
is one in which other 
structure are mapped 
between elements of the a 
example below* S is an 
array. ) 



the varying 
of an inter- 
leaved array 
elements of a 
in storage 
rray. In the 
interleaved 



DCL 1 P(10), 

2 Q(10), 

3 R FIXED (5,, 0) , 
3 S CHAR(5) VAR, 

2 T FIXED (5,0) ; 



CALL PROCl(P.Q(4,4)) ; 



CALL PR0C1((P.Q(4,4))) 



CALL PROC2(P(4)) ; 



/* LENGTH OF STRING 
MAY NOT BE CHANGED 
IN PROC1*/ 
/* CHANGE PERMIT- 
TED. DUMMY ARG- 
UMENT CREATED */ 
/* CHANGE PERMIT- 
TED. AN ARRAY OF 
STRINGS IS PAS- 
SED */ 



a dummy argument is not generated. 



LABEL A rrays 



Qualified names may not be used as label 
prefixes. Reference to arrays of label 
variables initialized by means of sub- 
scripted labels must not require explicit 
structure qualification. 

For example: 

DCL Z(3) LABEL, 
1 S, 

2 Y(3) LABEL, 
1 SI, 

2 Y(3) LABEL, 
1 S2, 

2 X(3) LABEL; 

Z(l): ; /+LEGAL*/ 
S.Y(l): ; /+ILLEGAL*/ 
X(l): ; /*LEGAL*/ 



The FLOAT Attribute 



Floating-point precision specified as 
FLOAT (*) in a parameter description within 
the GENERIC attribute, is not permitted. 



Li st Processing, Tab le Handling,, and 
Locate-Mode Input/Output Facilities 



The CELL attribute is not permitted. 



The SECONDARY Attribute 



The SECONDARY attribute will be recog- 
nized but ignored. 
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The NORMAL and ABNORMAL Attributes 



The attributes NORMAL and ABNORMAL are 
not implemented. If declared,, they will be 
ignored. 



It must be the upper bound of the 
leading dimension (including inherited 
dimensions) of the element with which 
it is declared. 

The structure member with which the 
bound is declared must be, or must 
contain, the last base element in the 
structure. 



BASED Variables 



The pointer variable explicitly or 
implicitly qualifying a based variable must 
be a non-based unsubscripted scalar pointer 
identifier. 

The BASED attribute must be followed by 
a pointer identifier in parentheses. 

The OFFSET attribute must be followed by 
an identifier in parentheses. 

The variable named in the OFFSET attri- 
bute must be an unsubscripted level 1 based 
area. 

Offset variables may not be used in any 
SET option or in any explicit or implicit 
based variable qualifier. 

A based variable may not have the INI- 
TIAL attribute. 

A based label array cannot be initial- 
ized by means of subscripted label prefix- 
es. 

A based structure can have either: 

1. One adjustable array bound, or 

2. One adjustable-length bit or character 
string. 

Based structure with one adjustable array 
bound : This is permitted only when there 
are no adjustable strings in the structure. 
The bound must conform to the following 
rules : 

1. It must be of the form: 

X REFER (Y) 

where X is an unsubscripted fixed 
binary variable of default 
precision, and 

Y is an unsubcripted fixed 
binary variable, of default 
precision, which is: 

(a) part of the structure, and 

(b) not associated with an 
explicit pointer qualifi- 
er. 



For example: 

DCL 1 PARTS_LIST BASED (P) , 
2 FIRM_NAME CHAR (40), 
2 REF_NO FIXED BINARY, 
2 FIRM_ADDRESS, 

3 STREETJTOWN CHAR (50), 
3 COUNTRY CHAR (30), 
2 STOCK (20: N REFER(REF_NO) , 100 : 200) ,, 
3 NUMBER, 

4 HERE FIXED (10,0), 
4 ORDERED,, 

5 PROVISIONAL FIXED (10,0), 
5 CONFIRMED FIXED (10,0), 
3 COST FIXED (5,0) ; 

Based s tructure with one adjustable-length 
bit or character string : This is permitted 
only when there are no adjustable array 
bounds in the structure. The string must 
conform to the following rules : 

1. It must be scalar. 

2. It must be the last element in the 
structure. 

3. The length must be declared in the 
form: 

X REFER (Y) 



where X and Y are as described above. 

For example: 

DCL 1 TYPE_OF_HOUSE BASED (P)„ 
2 NUMBER_OF_FLOORS FIXED (2,0), 
2 AREA FIXED BINARY, 
2 RATES_CODE CHAR (N REFER (AREA) ) ; 

Note: Pointer and AREA data types must be 
ALIGNED. 



OFFSET and POINTER Built-in Functions 



The OFFSET and POINTER built-in func- 
tions cannot be specified explicitly. How- 
ever, if the value of an offset variable is 
assigned to a pointer variable, or a poin- 
ter value to an offset variable, the neces- 
sary conversion is implicit in the assign- 
ment. 



27 4 



Based Variable Declaration ONCOUN T Built-in Function 

* 

A pointer variable must be included in a I This function is supported only for 
based variable declaration. (This is the | Model 91 requirements, 
pointer that will be set in the absence of 
a SET option from a LOCATE or an ALLOCATE 
statement referring to the based variable.) 
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APPENDIX I: MODEL 91 



When using the (F) Compiler to produce 
cbject programs for execution on a 
System/360, Model 91 the option M91 must be 
specified. 



In the following discus 
exception and interrupt 
exception is a hardware oc 
an overflow error) which 
gram interrupt. An interr 
eion of normal program a 
are many possible causes o 
the following discussion i 
with interrupts resultin 
exceptions. 



sion, the terms 
are used. An 
currence (such as 
can cause a pro- 
upt is a suspen- 
ctivities. There 
f interrupts, but 
s concerned only 
g from hardware 



The Model 91 is a high-speed processing 
system in which more than one instruction 
is executed concurrently. As a result, an 
exception may be detected and an interrupt 
occur when the address of the instruction 
which caused the exception is no longer 
held in the central processing unit. Con- 
sequently, the instruction causing the 
interrupt cannot be precisely identified. 
Interrupts of this type are termed impre- 
cise . When an exception occurs, the 
machine stops decoding further instructions 
and ensures that all instructions which 
vere decoded prior to the exception are 
executed before honoring the exception. 
Execution of the remaining decoded instruc- 
tions may result in further exceptions 
occurring. An imprecise interrupt in which 
more than one exception has occurred is 
known as a multiple- exception imprecise 
interrupt . When the M91 option is used, 
the compiler and library permit processing 
of imprecise interrupts. 



When the M91 
following occurs : 



option is specified, the 



The compiler inserts ■no-operation* 
instructions at certain points in the 
program to localize imprecise inter- 
rupts to a particular segment of the 
program, thus ensuring that interrupt 
processing results in the action spec- 
ified in the source program. (A 
'non-operation' instruction is an 
Assembler Language 'flush 1 instruction 
of the form BCR x,0, where x is not 
equal to zero. This instruction is 
implemented in the Model 91 in such a 
way that its execution is delayed 
until all previously decoded instruc- 
tions have been executed. ) The situa- 
tions in which the 'no-operation* 
instructions are generated are: 

a. Before an ON statement. 



b. Before a REVERT statement. 

c. Before compiled code to set the 
SIZE condition. 

d. Before compiled code to change 
prefix options. 

e. For a null statement. (This fea- 
ture provides the programmer with 
source language control over the 
timing of program interrupts.) 

f. Before every statement of the STMT 
option (in the PARM field of the 
EXEC statement) is used. (This is 
an important debugging tool.) 

2. An external symbol dictionary (ESD) 
entry is created for the PL/I library 
module IHEM91, which is required only 
when an object program is to be exe- 
cuted on a Model 91. The module is 
included when the object module is 
link-edited, and it is called when an 
imprecise interrupt is detected. 
Module IHEM91 provides the facilities 
for: 

a. Detecting multiple-exception 
imprecise interrupts. 

b. Setting the value that is returned 
by the ONCOUNT built-in function. 

c. Raising the appropriate PL/I con- 
ditions. 

The order of processing the exceptions 
is as follows: 

1. PL/I conditions in the order: 

UNDERFLOW 

FIXEDOVERFLOW or SIZE 

ERROR if system action is required for 
either FIXEDOVERFLOW or SIZE 

OVERFLOW 

ERROR if system action is required for 
OVERFLOW 

ZERODIVIDE 

ERROR if system action is required for 
ZERODIVIDE 

Note: The conditions FIXEDOVERFLOW and 
SIZE cannot occur together since the 
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same hardware condition raises both of 
them. 

2. Hardware exceptions in the order: 

data 

specification 

addressing 

protection 

Conditions and exceptions are raised in 
the above order until one of the following 
situations occurs: 

1. A GO TO statement arising out of an 
ON-unit is executed. All other excep- 
tions will then be lost,. 

2. The ERROR condition is raised. If the 
program is terminated as a result of 
this action (i.e., system action caus- 
ing the ERROR condition to be raised, 
followed by the FINISH condition).. 



messages will be printed to indicate 
the nature of the unprocessed excep- 
tions. The exceptions themselves will 
not be processed. 



When an interrupt results from multi- 
ple exceptions, only one of the PL/I 
conditions is raised for each type of 
exception that has occurred. 

When a multiple- exception imprecise 
interrupt occurs, the ONCOUNT built-in 
function provides a binary integer count of 
the number of exception types, including 
the current one, remaining to be processed. 
(The count does not include PL/I ON condi- 
tions.) If the ONCOUNT function is used 
when only a single exception has occurred, 
or if it is used outside an ON-unit, a 
count value of zero is indicated. 

Programs compiled with the M91 option 
can be executed on other System/360 models 
supported by the System/36 Operating Sys- 
tem. 
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INDEX 



* PROCESS statement ... 30 

ABNORMAL attribute . . 27 3 

ADV, format of 162 

aggregate length table 35 

ALIAS linkage editor statement ......... 44 

ALIGNED/UNALIGNED attributes .. 14,103 

See also structure mapping ......... 164 

alignment 

of FIXED and FLOAT BINARY variables 126 

alignment attributes, use of 122 

area data, format of 139 

area dope vector 161 

AREA ON- unit, exit from - . 112 

AREA, size of ... .„ 151 

AREA storage allocation and release 174-175 

arguments, method of presenting 161 

array arithmetic - programming hints . . Ill 

array assignment 109 

array dope vector, format of 162 

array expressions - nesting levels ..... 150 
array or structure elements 

matching with EDIT-directed format 

lists 113 

arrays 

listed attributes 33 

order of transmission ..., 113 

arrays bounds permitted ...... 14 9 

arrays, format of 14 

ASA carriage control character 6 8 

assembler subroutine 

variable-length argument list for ... 82 

assignment of variables 107 

assignment, efficient multiple 

assignments . . . 117 

assignment to VARYING string Ill 

assignments of variables 

programming hints 109,126 

ATTACH macro ...... ..... 186 

ATR/NOATR option 26 

attribute and cross reference table ..... 33 

example 34 

attributes, declaration of 105 

attributes, factoring of 149 

AUTOMATIC variables, declaration ...... 105 

BACKWARDS attribute 51,70 

based variables allocation 115 

based variables using REFER 

forcing correct boundary alignment . 156 
batched compilation 30 

programming example . . . . 31 

batched compilation output data sets ... 24 

BCD/EBCDIC option 27 

BEGIN blocks, use of 115 

binary data alignment 126 

BIT data . . . , 137 

BIT strings, efficient use of . ... 117 

BLKSIZE 

for blocked INDEXED data sets 71 

BLKSIZE DCB subparameter 59 

block initialization 



prologues and epilogues 159 

block invocation 

recursive invocation count 

pseudo-register 36 

block management at run-time ...... 158-160 

block nesting, limits ................. 149 

block size for records 61 

block size, maximum 142 

blocks in a compilation 14 9 

bounds permitted for arrays ........... 149 

BUFFERS option .. .. 143-144 

buffers, number of . .... 65 

BUFNO DCB subparameter 59 

CALL macro .......... 186 

calling sequence between modules 160 

card reader/ punch mode 66 

card reader/punch stacking 66 

cataloged data sets 19 

definition of 17 

cataloged procedures, use of 48 

PL1DFC 183,19,49 

PL1LFC 183,19,49 

PL1LFCL 183,19,49 

PL1LFCLG 18 4,19,50 

PL1LFLG . 184,19,50 

CELL attribute ., . * 273 

chained scheduling 65 

CHANGE linkage editor statement ........ 44 

changes at Fourth version.. Release 17 .. 13 

channel programs, number of 65 

character code for object program 14 2 

CHARACTER data , 137 

CHARACTER PICTURE data 137 

CHAR60/CHAR4 8 OPTION 28 

CHECK condition .. . 154 

for DATA-directed I/O 15 3 

CHECK lists, maximum number of items . . 153 

checkpoint/restart 83-87 

CM 

See external symbol dictionary 

COBOL option 144 

COBOL structures length of , 35 

COBOL-PL/I data interchange 103 

CODE DCB subparameter for paper tape ... 65 

coded arithmetic data 135 

collating sequence .................... 154 

COLUMN, used for non-PRINT file 142 

communication between object modules ... 81 

COMP/NOCOMP option 29 

compatibil ity 

between versions of the compiler .... 14 
expression evaluation - concatenation 14 

multitasking 14 

PACKED now removed from the language 14 

RECURSIVE procedures . . 14 

REENTRANT procedures 14 

structure mapping ................ 14-15 

compilation job control 30 

compilation speed improvements ., 115 

compile-time facilities , 123 

compile-time processor 147-148 



Index 



279 



compile- time processor, listing of input 32 
additional data in cols 73-80 of 

output 33 

compiler 

compatibility between different 

versions 14 

compiler completion codes 30 

features of different versions ... 11-14 

summary of Release 17 changes 13 

compiler ddnames 20 

compiler interface with the supervisor . 79 

compiler options 14,24 

compiler options, listing of 3 2 

compiler output 31-40 

aggregate length table ........I 35 

attribute and cross reference table . 33 
external symbol dictionary ESD 

listing 36 

source program listing 32 

STATIC INTERNAL storage map 37 

compiler phases, language features 
calling particular optional phases ... 115 

compiler processing 20 

compiler storage requirements 23 

compiler-generated names, number of ... 150 

compiler-input/output blocking 2 3 

COMPLETION built-in function 153 

COMPLETION pseudo- variable 15 3 

completion codes 

for abnormal step termination 133 

for batched compilation 31 

for the compiler 30 

COMPLEX FIXED BINARY data 136 

COMPLEX FIXED DECIMAL data . 136 

COMPLEX FLOAT BINARY data ... 136 

COMPLEX FLOAT DECIMAL data 136 

compound source statement numbering .... 3 2 

concatenation of data sets 155 

concatenation, priority of 14 

condition prefixes, scope of . . 127 

conditional job step execution 83 

CONSECUTIVE data set access ., 70 

CONSECUTIVE data set creation 70 

CONSECUTIVE data set language features . 52 

CONSECUTIVE data sets 51 

CONSECUTIVE organization 143 

constants returned by procedures 150 

constants, floating-point, size of .... 150 
constants, precision and length ........ 150 

constants, sterling 150 

constants, string, size of , 150 

control program options 7 8 

control record for batched compilation . 31 
control sections 

procedure invocation 160 

section definition for IHEMAIN 37 

section definition for IHENTRY 37 

control variables in DO-groups 127 

CONVERSION ON condition 154 

CONVERSION ON-un its 112 

conversions 

hints for efficient execution .. 116-117 

programming hints . . 10 8 

supported by in-line code 118-120 

CSECTS 

See control section 

CTLASA option 6 8 

CTLASA record I/O control characters .. 144 



CTL360 option 68 

CTL360 record I/O control characters .. 144 

cyclinder overflow area . . 67 

CYLOFL subparameter 67 

data aggregates - programming hints ... Ill 
data attributes 

for efficient execution ............. 116 

data control block DCB parameter 4 6 

DATA directed I/O, CHECK condition .... 153 

data element descriptor DED 137 

data interchange ....................... 103 

data management access methods 78 

data set creation and access 70 

data set definition 58 

data set, definition of .. 17 

data set label, ordering sequence for 

DCB „ 141 

data set names 

generation data groups 18 

indexes of . 18 

qualified or unqualified ..... 18 

restriction 17 

data set naming 58 

data set organization ................... 67 

types of 143 

data set positioning, magnetic tape 143-144 
DATA-directed I/O 

maximum length of qualified name ... 142 

maximum number of elements in list . 150 
DATAFIELD built-in functions 

DATAFIELD string length 152 

DATE function 117 

DCB creation 141 

DCB parameter 46,59 

DCB subparameters . . 60 

DCB, file opening order of completion . 141 

DD statement „ 20 

DD statement, ordering sequence for DCB 141 
DD statements 19,184 

modified in cataloged procedures ... 185 
ddnames 

for PL/I SORT , 96 

debugging facilities (testing) .... 129-134 

DECK/NODECK option 27 

declaration of external indentifiers .. 105 

DED data element descriptor 137 

DEFINED items 

alignment attributes 122 

deleted records 66 

SEQUENTIAL UPDATE of INDEXED data 

sets 72 

delimiter (/) statement „ 20 

DEN DCB subparameter 65 

device classes 21 

devices 

execution device choice 46 

diagnostic messages 

See messages 

dictionary blocksize 29 

dictionary, reducing the size of . . 120-122 
dimensions, maximum number of ......... 149 

DIRECT access 51 

See also INDEXED and REGIONAL data 
sets 
DIRECT UPDATE files 

use of NOWRITE option 122 

DISP parameter 59 
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DISPLAY message length 141 

DISPLAY statement 132 

division 

FIXED division programming hints ... 109 

DO groups - programming hints . . 110 

DO groups, use of 127 

dope vector for string data . . 136 

dope vectors, creation of 140 

DSA dynamic storage area 159 

DSNAME parameter .... .. 5 8 

DSORG subparameter . . 67 

dummy records 

in INDEXED data sets 53 

in REGIONAL data sets 58 

dumping storage in multitasking 8 9 

dumps 

See storage dumps 
dynamic invocation of PL/I compiler ... 186 
dynamic storage area DSA 15 9 

E format data, maximum size 142 

EBCDIC/BCD option „ 27 

EDIT-directed I/O . . . 154 

maximum length of E format data .... 142 

EMPTY built-in function, use of 112 

END statement ....... 32 

entry names as arguments 154 

entry parameter procedures, max number 154 
entry points 

declaration of attributes 105 

ENVIRONMENT attribute 142 

ENVIRONMENT attribute, use of 124 

epilogue subroutine 

See dynamic storage area 
ER 

See external symbol dictionary 

ERROR condition 128 

error messages 

See messages 
ESD (external symbol dictionary) ......... 36 

ESD listing 3 6 

event data, format of 139 

EVENT option 57,146 

in a DISPLAY statement 272 

in a multitasking environment 88 

in multitasking I/O . ... 91 

with REGIONAL (3) data sets 57 

EXEC statement 20 

execution speed, improvements 116 

EXIT statement 

in a subtask 9 3 

exponentation . . 154 

expression evaluation 10 8 

maximum number of temporary results 151 

EXTDIC/NOEXTDIC option ,. 29,148 

extended search limit 67 

external indentifiers 

restrictions 10 5 

external symbol dictionary listing ..... 36 
EXTREF/NOEXTREF option 26 

F- format records 143 

factoring of attributes 149 

FCB (file control block) . , 81 

file and ddname relationship , 141 

file attributes 

use of UNBUFFERED v BUFFERED 125 

file attributes, specified in DD card .. 59 



file control block 81 

file opening and closing space 
requirements 82 

files 

for both input and output 

(programming hint) 112 

files and data sets 51 

FINISH condition 128 

FIXED BINARY, maximum precision 152 

FIXED built-in function, default 152 

FIXED data scale factor for ........... 152 

FIXED DECIMAL data with even precision 

FIXED DECIMAL variables „ 126 

FIXED DECIMAL, maximum precision 152 

FLAG option 28 

FLOAT BINARY, maximum precision 152 

FLOAT built-in function, default 152 

FLOAT DECIMAL variables .... 126 

FLOAT DECIMAL, maximum precision 152 

floating-point constants, size of 150 

floating-point variable, magnitude of . 152 

FORTRAN-PL/I data interchange 103 

function values returned „ 151 

generation data groups .............. 18,19 

GENERIC attribute 

limit of family members and 

arguments 149 

GENKEY option ....... 145 

hardware for PL/I (F) Compiler 78 

IDENT option ........ 27 2 

identifiers, length of ................ 153 

IHEQERR 

See external symbol dictionary 
IHEQINV 

See external symbol dictionary 
IHEQTIC 

See external symbol dictionary 
IHESADA 

See external symbol dictionary 
IHESADB 

See external symbol dictionary 
in-line code for conversions and string 

handling 118 

INCLUDE STATEMENT 

data set requirements 147 

use of 123 

INDEXAREA parameter 145 

INDEXED data set access 71 

INDEXED data set creation 71 

INDEXED data set language features ..... 53 

INDEXED data set, DIRECT access 73 

INDEXED data set, SEQUENTIAL access 72 

INDEXED data sets 51 

KEY condition raised for lost record 113 

maintenance 125 

records deleted by SEQUENTIAL UPDATE 72 

secondary storage restriction 104 

INDEXED organization 143 

indexes for INDEXED data sets 52 

INITIAL attribute 272-274 

initialization of program variables ... 107 
initialization of variables, hints .... 126 

input/output 91 

I/O bound programs , 118 

INDEXED data sets 51 
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synchronization in multiprocessing 94 

input/output - programming hint ... 112-115 

input/output conventions 141-147 

input/output error recovery 126 

INSERT statement 4 3 

instruction sets 78 

interrupts 

M91 option .. . . 277 

interrupts, object time handling .. 160,129 

interval timing options 79 

invocation of PL/I dynamically 186 

job control for linkage editor 4 5 

job control statements 

example of compile, link and execute 

procedure 46 

job priority 90 

JOB statement 20 

job step 

definition of . » 17 

KEY condition 

not detected using LOCATE statement 114 

KEY option , 5 6 

key position, relative „ 67 

KEYLEN DCB subparameter 66 

keys, for INDEXED data sets 51 

keys, for REGIONAL data sets . . 55 

LABEL attribute, maximum number 152 

label data, format of 138 

LABEL parameter 5 9 

LABEL variables in structures 

with INITIAL and LIKE attributes ... 146 

language not supported 272 

LD 

See external symbol dictionary 

LEAVE option 143-144 

length of compiled modules . ... 81 

length of identifiers 15 3 

length of structures and arrays 

See aggregate length table 

LET linkage editor option 44 

library module linkage conventions .... 161 
library opening and closing modules 

storage requirements 82 

LIMCT DCB subparameter 6 7 

LINECNT option . 2 6 

for object program listings 38 

LINECNT/NOLINECNT option 26 

LINESIZE -option 68 

LINESIZE, minimum and maximum 141 

LINESIZE, used for non-PRINT file 142 

link editing into a private library .... 41 

link editing, module name priority 41 

linkage editor 18 

updating private procedure libraries 18 

linkage editor control statements 44 

linkage editor diagnostics 4 5,46 

linkage editor options 44 

linkage editor output 45 

linkage editor overlay processing ........ 4 2 

linkage editor processing 40 

linkage editor, additional libraries ... 41 

linkage editor, ddnames 41 

linkage editor, input and output ........ 40 

LIST linkage editor option 44 

LIST/NOLIST option 26 



load modul e 18 

load module cross reference table 45 

load module map , 4 5 

load module, maximum size 45 

LOAD/NOLOAD opt ion . . . . 27 

locate mode I/O 76 

LOCATE mode I/O ON conditions 155 

locate mode I/O, use of 114 

logical record length 62 

LRECL 

for blocked INDEXED data sets 71 

LRECL DCB subparameter ...... 59 

MACDCK data set ... „. , 20 

MACDCK/NOMACDCK option 30 

MACRO option .. „ 123 

macro processor 

See compile-time processor 

MACRO-NOMACRO option 29 

magnetic tape conversion 7-track 66 

MAIN option „. 81,148 

MAP linkage editor option . . 44 

mapping of structures 164-175 

master index specification 67 

MAX function 152 

messages 

compiler diagnostic messages 39,188-260 

execution error messages 260-271 

FLAG options . 28 

linkage editor . 45,46 

to and from the operator 48 

MFT 79 

MIN function 152 

MOD function 152 

MODE DCB subparameter 66 

model 91 ,..'......... . 277 

modifying cataloged procedures 184 

move mode I/O 76 

multiple assignments, limitations ..... 151 
multiple closure statement numbering ... 32 

multiple WAIT option 79 

multitasking .„ 87-94 

I/O synchronization 92 

multitasking. Release 16 changes 14 

multiprocessing 94 

multiprogramming, with a fixed number 

of tasks * . . 79 

multiprogramming, with a variable 

number of tasks 79 

MVT 79 

M91/NOM91 option 30 

NAME linkage editor statement 44 

names generated by the compiler 150 

NCAL linkage editor option 4 3 

NEST/NONEST option . 30 

NTM DCB subparameter 67 

null (//) statement ,. 20 

object deck data set 20 

object deck serialization ............... 40 

object module 18 

object module data set 20 

object module listing 38 

object module output, contents of 4 

object program initialization ......... 160 

object program organization ....... 158-175 

object program output 



282 



object time messages 48 

operator messages 48 

record oriented 4 7 

stream oriented . , 47 

object-time interface with the 

supervisor . 79 

OBJNM option . „ „ 26 

OFFSET function and attribute 274 

offset variable, format of 138 

ON conditions „ „ Ill 

LOCATE mode I/O restrictions 155 

ON statements in recursive contexts ... 155 

ON-codes 129 

ON-unit entry with SIGNAL Ill 

ON-units 

in multitasking . . . . 89 

ON-units, limit to active number 154 

ONCHAR pseudo-variable 154,112 

ONCODE built-in function, use of 128 

ONCOUNT function .„ 275 

ONKEY built-in function 125 

ONSOURCE built-in function 154 

ONSOURCE pseudo- variable 154,112 

ONSOURCE string length . . . 15 2 

operating system requirements . 78 

operator console . . . 7 8 

OPLIST/NOOPLI ST option 26 

OPT option 27 

OPTCD=C DCB subparameter 65 

OPTCD=L DCB subparameter 66 

OPTCD=M DCB subparameter 67 

OPTCD=U DCB subparameter 66 

OPTIONS attribute 14 8 

overflow area, independent 67 

OVERFLOW condition in exponentiation .. . 154 
overlay program 

linkage editor cross reference table 4 5 

overlay programs, creation of 4 2 

overlay techniques - examples 42-44 

overriding cataloged procedures 124 

overriding EXEC statement parameters .. 184 

PACKED attribute „ 14 

PAGESIZE, maximum 141 

paper tape CODE subparameter 65 

parameter lists 

declaration of attributes 105 

parameters, maximum number of 149 

parameters, method of passing ......... 161 

PARM parameter option list format 104 

PARM parameter override 184 

partitioned data set 

definition . . 19 

PCP . . 7 8 

PDS (partitioned data set) 19 

PGMNAME 

See external symbol dictionary 
PGMNAMEA 

See external symbol dictionary 
PICTURE attribute 

impact on execution speed 116 

PICTURE attribute, maximum size 152 

picture checking (on assignment) 109 

PICTURE declarations 

with decimal points . . 105 

pictured data 137 

PL/I language not supported 272 

PL/I library 8 3 



PL/I modules combined with modules from 

other languages „ 82 

PL/I preprocessor 

See compile-time processor 

PL/I SORT . 95-103 

PL/I SORT - multitasking 103 

PL1DFC 183,19,49 

PL1LFC 183,19,49 

PL1LFCL 183,19,49 

PL1LFCLG , 184,19,50 

PL1LFLG . 184,19,50 

POINTER function „ 275 

pointer variable, format of 137 

pointer variable, reuse of 115 

POSITION attribute, maximum value 152 

PR 

See external symbol dictionary 
precision, specified for efficient 

execution 116 

primary control program 78 

primary string array dope vector 164 

PRINT files 68 

printed listings from compiler 31 

printer character sets for PL/I 78 

printer spacing control ................ 66 

priorities in PL/I 90 

PRIORITY pseudo-variable, function, or 

option 90 

PROCESS card 30 

program control section in ESD 36 

program csects 

See control sections 

program size estimation 81 

program testing 128-134 

programming in a multitasking 

environment . . 88 

programming techniques 104-127 

common errors and pitfalls ..... 104-115 

efficient programming ........... 115-127 

prologue and epilogue subroutines 159 

PRTSP DCB subparameter . „ 66 

PRT Y parameter „ 90 

pseudo-register vector (PRV) ........ 95,158 

PUT DATA statement limitations 113 

REAL FIXED BINARY data 135 

REAL FIXED DECIMAL data 135 

REAL FLOAT BINARY data 135 

REAL FLOAT DECIMAL data 135 

REAL PICTURE data 137 

RECFM DCB subparameter „ 59,62 

record alignment 155 

RECORD condition 125 

record data sets for printing 68 

record formats 61,64,129 

RECORD-oriented input/output 125 

hints for efficient performance .... 118 

LOCATE mode 76 

printer, punch control characters .. 144 

record format constraints 6 4 

record length „ 62,142 

RECURSIVE attribute 14 

recursive use of a procedure 105 

REENTRANT attribute 14 

REENTRANT option 148 

REFER attribute 

forcing correct boundary alignment . 156 
REGIONAL data set access 74 
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DIRECT access 7 5 

replacement of records 7 5 

SEQUENTIAL access .. . 74 

REGIONAL data set creation 73 

DIRECT creation 74 

SEQUENTIAL creation ,.. 74 

REGIONAL data set language features .... 54 

REGIONAL data set organization 55 

REGIONAL data sets 

source key last 8 bytes 113 

REGIONAL organization 14 3 

REGIONAL (1) data sets 5 6 

REGIONAL (2) data sets . .. 5 6 

REGIONAL (3) data sets „ 57 

REGIONAL (3) files 

in multitasking, with EVENT option . . 91 

register usage ...»...„ 161 

REPLACE linkage editor statement ........ 44 

REPLY message length 141 

REPLY option „ .„ 132 

restarts 

See checkpoint/restart 

return code setting by PL/I 8 3 

return codes 

in multitasking 89 

return values 

declaration of attributes 105 

REWIND option „ 143-144 

REWRITE statement 

in locate-mode I/O 114 

RKP DCB subparameter 67 

run-time block management 158-160 

SADV 163 

scale factor for FIXED DATA . .. 15 2 

scope of variables in multitasking 88 

SD 

See external symbol dictionary 

SDV string dope vector 136 

SDV, format of 161 

SECONDARY attribute 27 3 

sequential access I/O » 51 

SEQUENTIAL access of REGIONAL data sets 5 6 
sequential data set 

definition 19 

SEQUENTIAL files 

in multitasking I/O 91 

SETS list, size of 152 

SIGNAL statement , 129 

SIZE CONDITION 

for even precision FIXED DECIMAL 

data 110 

SIZE disabled 108 

size of load module 45 

SIZE option 25 

SIZE requirements . 23 

SKIP, used for non-PRINT file 14 2 

SNAP option, use of 131 

in multitasking 89 

SNAP SYSTEM ,. . 132 

SORMGIN option 27,135 

SORT, PL/I SORT 95-103 

source keys, REGIONAL data sets 55 

source program listing 32 

source statement numbering 3 2 

source statement record format 135 

SOURCE/NOSOURCE option 2 9 

SOURCE 2/NOSOURCE 2 option 29 



space allocation 

for REGIONAL data sets . .., 7 3 

SPACE parameter 59 

space requirements for compiler data 

sets 22 

spanned VS-format or VBS-format records 61 

spanned records ........... 125 

spanned records, use of 64 

STACK DCB subparameter 66 

standard file names 113 

SYSIN implicit use , 113 

statement numbering „ 32 

listed in attribute table 33 

listed in cross reference table 33 

statement size „.. 148-149 

statements, number in a procedure ..... 148 
STATIC INTERNAL control section 

name in ESD listing . 36 

STATIC INTERNAL storage map 37 

STATIC variable in overlay segment .... 104 

sterling constants ............... 150 

STERLING PICTURE data 137 

STMT option 48 

STMT/NOSTMT option 28 

STOP statement 

in a subtask . .... 93 

storage dumps 

at execution time 132 

storage dumps in multitasking 89 

storage for file opening and closing ... 82 
storage requirements 

for PL/ 1 SORT 95 

storage requirements for object program 33 

storage, hints for the use of 122-123 

STREAM data set creation and access .... 70 
STREAM- oriented I/O 125 

record formats 63 

access method 78 

based variable restriction 115 

string array dope vector 163 

STRING built-in function 153 

string contants, size of 150 

string data „...„ 136 

string dope vector SDV 136 

string dope vector, format of ........... 161 

string functions 

supported by in-line code ...... 120-122 

string handling 

in multitasking 92 

string handling - programming hints ».. Ill 
string handling, for improved speed ... 117 
strings 

for GET LIST or DATA 113 

strings, VARYING 

intermediate result string length .. 151 
structure dope vector, format of ...... 16 3 

structure expressions - nesting level . 150 
structure mapping 164 

PACKED and UNALIGNED compared 14-15 

structures, format of 140 

subscript variables ................... 117 

subscripted identifiers, length of .... 153 

SUBSTR pseudo-variable Ill 

switches, efficient use of 117 

SYSIN DD statement 20 

SYSLIB DD statement 18,20 

SYSLIB DD, use of , 123 

SYSPRINT . 20 
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use in STREAM I/O in multitasking ... 91 

SYSPRINT implicit use „ 113 

SYSPUNCH/SYSLIN in batched compilation . 2 4 

system requirements 78 

SYSUT1 2 

SYSUT3 20 

SYS1 . LINK modules „ . 8 3 

tab controls for STREAM I/O 69 

task data, format of 138 

TASK option . .. „ 148 

task priority . 9 

task termination 93 

tasking 

pseudo-register for 36 

tasking 

See multitasking 
temporary results, maximum permitted .. 151 

temporary workspace VDAs . « . . 159 

testing programs , ..... 128-134 

text block size ....... 29 

TIME option . . 79 

time taken for compilation 40,79 

timer feature 78 

TITLE option .. 51,141,146 

trace of active procedures . «... 131 

TRANSMIT condition „ 129 

TRTCH DCB subparameter - 66 

U-format records . . 143 

UCS printer, suppress TRANSMIT 66 

UNALIGNED attr ibute 14 

effect on structure mapping 166 

See also structure mapping 164 

UNDEFINEDFILE condition 

for a stream file 113 

possible causes 112 

UNIT parameter .......«, 58 



UNSPEC built-in function 

length of bit-string returned 152 

UNSPEC pseudo-variable. - programming 

hint Ill 

UPDATE, INDEXED data sets 52 

utility data sets ,.. 20 

V-format variable-length records ... 61,14 3 

validity check direct-access 66 

variable data area VDA 159 

variable-length V-format records 61 

variable-length records 

use of spanned records 125 

variables, maximum number of 148 

VARYING string, assignment to Ill 

VBS-format spanned-blocked records . 61,14 3 
VDA 

for temporary workspace 159 

volume 

definition of .,.„ 17 

VOLUME parameter 59 

VS-format spanned records 61,143 

WAIT statement 146 

in multitasking ., 88-89 

warning messages 

See messages 
WHILE clause, use of 127 

XCAL linkage editor options 44 

XREF linkage editor option 44 

XREF/NOXREF option 26 

48-character set 

semicolon in DATA-directed I/O 113 

48-character set, use of reserved worls 142 
60-character set 28 
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